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ÖNSÖZ 


Bilgisayarlar ve bilgisayar teknolojilerinin hızlı bir şekilde gelişimiyle birlikte bilgisayarların 
mühendislik ve hizmet sektörlerinde artarak kullanıldığına şahit olmaktayız. Bu gelişim 
beraberinde ofis ve mühendislik paket programlarının geliştirilmesine neden olmuştur. 
Matematiksel işlemlerin yapılmasına olanak sağlayan MATHEMATICA, MATLAB, 
MATCAD, MAPLE gibi programlar gelişmiş ve yaygınlaşmış; optimizasyon, diferansiyel 
denklem takımlarının çözümü gibi nispeten zor olan mühendislik problemlerinin çözümünde 
kullanılmaya başlanmıştır. Temel mühendislik hizmetleri için geliştirilen çeşitli çizim ve/veya 
hesap programları mühendislerin işlerini kolaylaştırmış olsa da, orta ve ileri düzeydeki 
problemlerin çözümünde, program yazma ihtiyacını henüz ortadan kaldırmamıştır. Halen 
kullanılan programlama dilleri, mühendislik dallarındaki ihtiyaçlara göre çeşitlilik 
göstermektedir; örneğin, bilgisayar yazılımları oluşturmak için Ct, yapay zeka programcıları 
için PROLOG, üretim makinelerinin programlanması için PLC, bilgisayar donanımlarını 
programlayanlar için ASSEMBLER, web sayfası tasarımcıları için HTML ve JAVA vs 
kullanılır. 


Öğrenciler sıklıkla “modası geçmiş bir dil” olan “neden FORTRAN”ı öğreniyoruz?” sorusunu 
sormaktalar. FORTRAN, adından da anlaşılacağı üzere (İngilizce de FORmula TRANslation 
kelimelerinin kısaltılıdır) mühendislik, fen bilimleri ve bilimsel çalışmaları için tasarlanmış bir 
programlama dilidir; ticari yazılım yazmak için (modelleme ve simülasyon programları hariç) 
kullanılan bir dil değildir. Piyasada sadece “programcı” olarak çalışanlar, bu nedenle, Fortran 
diline ihtiyaç duymazlar. Ancak Fortran halen mühendislik ve bilimsel çalışmalarında 
vazgeçilmez programlama dillerinden biri olarak yerini korumaktadır. Ayrıca birçok fen ve 
mühendislik probleminin çözümü için ortaya atılan program ve alt programların neredeyse 
tamamı FORTRAN dilinde kodlanmıştır; bu algoritmaları içeren programlar piyasada çeşitli 
adlar altında hazırlanan paketler şeklinde hizmete sunulmaktadır. Bazı nispeten basit 
programları diğer programlama dillerinde yazmak mümkündür; ancak FORTRAN dilinin 
fonksiyonelliği ve elverişliğini henüz geçmemişlerdir. 


Bu kitap esasen Osmangazi Üniversitesi, Mühendislik Mimarlık Fakültesi, Makine Mühendis- 
liği bölümünde okutulmakta olan Bilgisayar Programlama dersine yardımcı olmak için hazır- 
lanmıştır. Bu kitabı hazırlarken ana hedefimiz sadece FORTRAN programlama dili ve deyim- 
lerini öğretmek değil, aynı zamanda yapısal programlama mantığı ile temel mühendislik bilim- 
leri uygulamasında gerekli sayısal tekniklere bir giriş yapmak olmuştur. Bu nedenle türev, 
integral, matrisler gibi konular işlenmiş, gerekli programlar temin edilmiştir. 


Bu kitabın öğrencilerimizin (elbette gelecekteki mezunlarımızın) meslek yaşamlarında 
ihtiyaçları olan programlama bilgisine katkısı olmasını umuyoruz. 


Prof. Dr. Zekeriya ALTAÇ Yrd. Doç. Dr. Mesut TEKKALMAZ 


19 Eylül 2005 
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Günümüzde bilgisayarların üretim sektörünü, iş ve özel hayatımızı nasıl etkilediğini her gün 
görmekte ve yaşamaktayız. Her gün, her saat bankalarda, okullarda, özel/tüzel kurum ve 
kuruluşlarda, otomasyon üretim makinelerinde vb yerlerde kullanılmakta, kısacası her yerde ve 
her şeyden sürekli veri toplanmaktadır. Fakat bu veriler ilk bakışta düzensiz ve anlamsız şekilde 
olmaktadır. Tüm bu veriler faydalı veriler haline dönüştürülebilir. Bu işleme Veri işleme 
Sistemi denir. 


Veri işleme sistemleri, bilgisayar kullansın veya kullanmasın daima bilgilerin girişi, 
depolanması, işlenmesi, çıktı alınması ve kontrolü olmak üzere beş ana bölümden oluşur. Tüm 
bu bölümlerde verilerin sistemle ilişkisi sağlanır. Daha sonra da veriler, kurumların, toplumun 
ve kişilerin istediği şekle veya formata dönüştürülür. 


Tarihin başlangıcından beri insanlık veri işleme sistemlerine ihtiyaç göstermiştir; insanoğlu 
sayma gereği duyduğunda ilk olarak parmaklarını kullanma yoluna gitmiş, sayıların toplanması 
amacıyla düğümlü ipler veya daha sonra Çinliler ve eski Yunanlılar "abaküs" adı verilen aracı, 
aritmetik işlem yapmakta kullanmışlardır. İlk eldeli toplama işlemini yapabilen hesap makinası 
1642'de Fransız Blaise Pascal tarafından icat edilmiştir. Bugün bunların daha gelişmiş olanları 
(artık ülkemizde de kullanım dışı kalan) FACID hesap makineleridir. 20. asırdan önce veri 
işlemeleri genelde mekanik cihaz ve aletlerle yapılırdı. Bu yüzyılın başında Dr. Herman 
Hollerith adında bir bilim adamı 1890 yılında A.B.D. de yapılan nüfus sayımı sonuçlarını 
değerlendirmek için delikli kartlar üzerine işlenen bir yöntem ve elektro-mekanik bir cihaz 
tasarlamıştır. Daha sonra 1940'larda, bu makineler özellikle askeri alanda kullanılmak üzere 
yapılan bilimsel araştırmalar yardımıyla geliştirilmiş ve sonuçta elektronik bilgisayarların 
geliştirilmesinde öncü rol oynamışlardır. 


Otomatik hesaplayıcılara elektroniğin uygulaması 1946 yılında J. P. Eckert ve J. W. Mauhily 
tarafından ENTAC”'ın (Electronic Numerical Integrator And Calculator) yapımı ile gerçekleşti. 
Bu makine 30 ton ağırlığındaydı ve 135 metre karelik bir odayı doldurmaktaydı. Bir kişinin 
masa üstü hesap makineleriyle 20 saatte yaptığı işleri, bu makine 30 saniyede yapabilmekteydi. 
Yaklaşık 20 bin radyo lambası kullanmakta ve 150 kW enerji kullanmaktaydı. 1964-1970 
arasında, üretilen bilgisayarlarda entegre devreler kullanılmaya başlandı. On binlerce devre 
küçük bir silikon yongaya yerleştirildi. Düşük maliyet, yüksek güvenirlilik, çok daha ufak 
boyutlarda üretilebilmesi, düşük enerji harcaması ve hızlı olması yongaların mikro-bilgisayar 
yapımında kullanılmasına temel neden oldu. 


İlk popüler grafiksel işletim sistemi 1984 yılında, Apple Macintosh ile piyasaya girdi. 
Microsoft firması Macintosh için sözlük işlemci ve elektronik tablo programı yazdı. İlk IBM 
Kişisel Bilgisayarı, 1981 yılının Ağustos ayında pazara çıkardı. IBM, 1983 baharında, şirketin, 
içinde sabit disk bulunan ilk kişisel bilgisayarı olan PC/XT'sini piyasaya sürdü. Disk, yerleşik 
bir depolama aygıtı olarak çalışıp, 10 MB idi. 1984'te, IBM, Intel'in 80286 mikro işlemcisine 
dayalı, PC AT adlı yüksek performanslı ikinci kuşak bilgisayarını tanıttı. IBM PC'den üç kat 
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hızlıydı. 1986 yılında ilk diz üstü bilgisayar olan PC convertible piyasaya sürüldü; akü ile 
çalışmakta olup ağırlığı 6 kg idi. 1989 yılında IBM dönemin en güçlü bilgisayarı olan 
486/25MHz Power Platform'unu tanıttı. Cihazın sabit diski 30 MB'a yükselmişti. Bilgisayarlar 
1980'li yıllarda DOS operatör sistemi ile çalışmaktaydı. 1990 Mayıs ayında, Windows 3.0 
piyasaya sürüldü. Windows'un eski versiyonları mevcut olmasına rağmen pek kullanılışlı 
değildi. 


Günümüzde artık bilgisayarlar iş ve endüstri alanında geniş ölçüde kullanılmaktadır. Ayrıca 
kişisel bilgisayarların da kullanımı artmakta ve yukarıda bahsedilen alanlardan başka, Internet 
aracılığıyla alışveriş (e-alışveriş), bankacılık (e-bankacılık), haberleşme (e-posta), başta olmak 
üzere, artık evlerdeki kullanımı her geçen gün hızla yaygınlaşmaktadır. Bütün bunların sonucu 
olarak toplumlar, endüstri toplumundan çıkıp, endüstri sonrası olarak düşünülen bir bilgi 
toplumu haline gelmiştir. 


1.2 BİLGİSAYAR SİSTEMLERİ 
1.2.1 BİLGİSAYAR TİPLERİ 


Günümüzde kullanılan 2 tür bilgisayar vardır: analog ve sayısal (digital) bilgisayarlar. Analog 
bilgisayarlar fiziksel sistemlerin simülasyonunda kullanılır. Bir analog bilgisayarın çalışma 
sistemi zamanla sürekli (kesikli olmayan) değişen ölçüm sinyalleri ile ilgilidir. Bu yüzden 
analog bilgisayarlar genellikle sürekli ölçüm ve kontrol gerektiren alanlarda kullanılır. Daha 
ziyade, araştırma geliştirme ve üretim sektörlerinde kullanılmışlardır; halen kullanımı olmasına 
rağmen bilgisayar donanımların hızla gelişmesi analog bilgisayarların kullanım alanlarını 
daraltmıştır. 


Sayısal bilgisayarlar, analog bilgisayarlara karşın zamanla kesikli şekilde değişen 
büyüklüklerle çalışır. Bu tip bilgisayarlar ölçmekten ziyade sayar ve fiziksel ölçümler yerine 
sayılar kullanır. İşletmelerde kullanılan veriler kesikli (yani belirli aralıklarla toplanan veriler) 
olduğundan, bu alanlarda da sayısal bilgisayarlar kullanılması doğaldır. 


Yukarıda açıklanan her iki sistemi de içeren cihazlara hibrid (hybrid) bilgisayarlar adı verilir. 
Birçok ticari, bilimsel ve endüstriyel bilgisayar sistemleri analog ve sayısal cihazların 
kombinasyonundan meydana gelir. Bu tip cihazlar günümüzde gelişmekte ve her alanda 
kullanılmaktadır. 


1.2.2 BİLGİSAYAR ELEMANLARI 


Bir bilgisayar sistemindeki gözle görünen fiziksel parçalara donanım, sistemin gözle 
gözükmeyen ve yapması gereken işlevleri yerine getiren bilgisayar programlarına da yazılım, 
bilgisayar sistemindeki yongalara üretildikleri şirketlerde konulan programlara da bellenim adı 
verilir. 


Bir bilgisayar sistem yapısı, ana bellek (depolama) birimi etrafında organize edilmiştir. Çünkü 
bilgisayar tarafından kullanılan tüm veri ve komutlar işlenmeden önce ana bellekten geçer. 
Buradan yola çıkarak sayısal bir bilgisayarın fonksiyonel birimleri şöyle sıralanabilir: (1) Ana 
ve ikincil bellek birimleri, (2) Merkezi işlem birimi, ve (3) Girdi ve çıktı birimleri. 
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1.2.3 ANA VE İKİNCİL BELLEK BİRİMLERİ 


Ayrıca iç bellek olarak adlandırılan ana bellek birimi, merkezi işlem birimi ile aynı yerde 
bulunur. Bu birimin amacı: 


İşlenecek tüm verileri tutmak, 

Ara işlem sonuçlarını tutmak, 

Elde edilen sonuçları çıktı cihazına göndermeden önce tutmak, 
Devam etmekte olan işlem için gerekli tüm komutları tutmak. 


a 


Ana bellek, iki çeşit bellek ortamından oluşur: magnetik-çekirdek bellek ve yarı iletken 
(semi-conductor) bellek. Bunlardan birincisi olan magnetik çekirdek ortamı devredeki güç 
kesildiğinde içindeki bilgileri kaybetmeyen (non-volatile) bir bellek ortamıdır. Yarı iletken 
bellek ise, güç kesildiğinde içinde tuttuğu içeriği kaybeden, içindeki veriye gelişigüzel bir 
şekilde erişilebilen bir bellek olduğundan bu çeşit belleğe RAM (Random Access Memory - 
Rasgele Erişimli Bellek) de denir. İşlem sırasında RAM'deki içerik sürekli değişir. 


Daha önce yukarıdaki kısımlarda bahsedilen sistemin çalışması için gerekli (özellikle bellenim) 
programların depolandığı güç kesilmesinde silinmeyen belleğe de kısaca ROM (Read Only 
Memory - Salt Oku Belleği) denir. 


Son zamanlarda, ROM olarak kullanılan fakat istenildiğinde silinip, tekrar programlanabilen 
bellekler de vardır. Bunlara EPROM (Eraseable Programable Read Only Memory - Silinebilir 
Programlanabilir Salt Oku Belleği) denir. Bunlar gereğinde çeşitli yöntemlerle tekrar 
programlanabilen fakat ROM gibi çalışan bellek birimleridir. İkincil bellek birimi olarak 
yıllardan beri elektro-mekanik ortam kullanımdadır. Bu ortam, bilgisayar sistemi dışında da 
bilgi depolanması için kullanılan ve istenildiği gibi silinip değiştirilebilen bir depolama 
sistemidir. Bunlar manyetik ve optik diskler, disketler ve CD ve kasetlerdir. Kütlesel olarak 
daha fazla bilgi depolanması için kullanılan başka cihazlar da vardır. Magnetik teypler, daha 
çok ana ve süper bilgisayarlarda bilgi depolama amacı ile kullanılır. CD, disk ve disketler ise 
kişisel bilgisayarlarda oldukça pratik şekilde kullanılabilen ve birçok boyutta ve kapasitede 
olan depolama ortamlarıdır. Kişisel bilgisayarlarda kullanılan disklere sabit disk (Fixed Disk 
veya Hard Disk), disketlere de esnek disket (Floppy diskette) denir. o Tekrar tekrar 
kullanılabilen/yazılabilen (re-writeable) veya bir kez kullanılabilen, 700 MB gibi, oldukça fazla 
miktarda bilgi depolayabilen CD'ler de son yıllarda bilgi depolamada kullanılan araçlar haline 
gelmiştir. 


Son yıllarda bellek çubukları ve cepte taşınabilir sabit diskler yaygın olarak kullanıma girmiştir. 
I MB'lık bellek çubuklarının yakın zamanda kapasitelerinin daha da artacağı tahmin 
edilmektedir. Taşınabilir sabit disklerin kapasitesi ile fiyatı artmaktadır. Ancak yakın zamanda 
bu alanda da hem kapasitesinin daha da artması hem de fiyatlarında düşüşlerin yaşanması 
beklenmektedir. 


1.2.4 MERKEZİ İŞLEM BİRİMİ 


Merkezi işlem Birimi, bilgisayarın beyni olup iki parçadan oluşmuştur: kontrol birimi (Control 
Unit-CU) ve aritmetik mantık birimi (Ari#hmetic Logic Unit-ALU). 


Kontrol birimi, tüm bilgisayar sistemini kontrol ve organize eden birimdir. Ana bellekte 
depolanmış programdan gerekli komutları alır, yorumlar ve komutları yerine getirmek için 
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gerekli sinyalleri sistemin diğer birimlerine gönderir. 


Her bilgisayar sisteminde gerçekleşmesi amaçlanan fonksiyonların her biri, örneğin dört işlem 
(toplama, çıkarma, çarpma ve bölme) ve karşılaştırma işlemi (küçük, büyük, eşit vs), için ayrı 
bir devre hazırlanmıştır. Bu devrelerin her birine tasarlayıcı tarafından bilinen, birbirlerinden 
farklı olan ve işlem kodu olarak adlandırılan numaralar verilir. Bu nedenle bilgisayar türlerine 
göre aynı işlem için bile bu kodlar da farklılık görülebilir. Bir bilgisayar programı içindeki her 
komut, işlem kodu ile birlikte işlemin üzerinde yapılacağı bilginin bellek konumunun adresini 
de taşır. Buna göre; kontrol birimi, komut sayıcı tarafından belirlenen konumda bulunan 
komutu okur ve işlem sırası gelen komutun adresini belirler; bellekten elektrik uyarısı halinde 
ulaştırılan komut içinde adresini verdiği bilgi üzerinde kontrol birimlerinin işlem kodu ile 
belirtilen işlemin yapılmasını sağlar ve bir sonraki komutu ve adresini belirleyerek işleme 
devam eder. 


Aritmetik mantık birimi, kontrol birimi tarafından, ana bellekten alınan emirleri yerine getirir 
ve sonuçları ana belleğe geri gönderir. Burada yerine getirilen komutlar genelde matematiksel 
işlemlerdir. 


Bilgisayar sistemlerinin tipi (örneğin kişisel bilgisayarların tipleri 486, Pentium, Triton, AMD, 
Cyrix v.s.) ve hızları (200 MHz'den başlayan ve her geçen gün hızları artmaktadır, v.s.) bu 
birimin tipi ve hızları ile belirtilmektedir. 


1.2.5 GİRDİ VE ÇIKTI BİRİMLERİ 


Bilgisayar bulunduğu ortamla mutlaka haberleşmek zorundadır. Girdi birimleri; verileri, 
programları ve diğer bilgileri ana belleğe vermekte kullanılır. Çıktı birimleri ise kullanıcıya 
gerekli bilgileri sunmak için ana bellekten verileri almak veya daha sonra kullanılmak üzere 
verileri ikincil bir bellek ortamında saklamak için kullanılır. Bazı cihazlar aynı anda hem girdi 
hem de çıktı cihazı olarak kullanılır. 


1950-1980'li yıllarda klavye ile bilgi girişi teknolojisi henüz gelişmemişti. Her program satırı 
Şekil 1de görülen bir karta delinir; bu kartları okuyan özel cihazlar aracılığıyla şimdi 
klavyeden girdiğimiz komut ve açıklamalara dönüştürülürdü. Son yirmi yılda girdi cihazları 
gelişti. Girdi cihazları olarak, klavye, tarayıcılar (scanner), ışık kalemleri, barkod okuyucuları, 
fareler, optik okuyucular, sayısallaştırıcı (digitizer) tabletler, video ve kameralar, ses aygıtları 
v.s gibi cihazlar mevcuttur. 


Şekil 1.1 Fortran programının bir satırı için kullanılan kart. 
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Çıktı cihazları olarak, monitörler (VDU - Visual Display Unit), yazıcılar, grafik çizicileri 
(plotter), hoparlörler v.s. gibi cihazlar kullanılmaktadır. 


Ayrıca hem girdi hem de çıktı cihazı olarak manyetik teypler, disk ve disketler, bellek çubukları, 
taşınabilir sabit diskler kullanılmaktadır. 


Tüm bunlardan başka ileri teknoloji ürünü olarak ses tanıma ve cevaplama cihazları da vardır. 
Bunlardan da bilgisayar sistemini ve diğer programları (özellikle kelime-işlem programlarını) 
çalıştırmak için günümüzde faydalanılmaktadır. 


Yukarıda bahsedilen çıktı cihazlarından olan monitörlerdeki yeni gelişmelerle ekran 
çözünürlüğü (resolution), renk sayısı, hız ve kapasitesi (grafik gösterimi için) oldukça 
artırılmıştır. Ayrıca dokunmatik hale getirilip, klavye gibi kullanımı uygulamaları vardır. 
Bunlardan başka ekran tipi olarak CRT (Cathode Ray Tube), gaz plazma ve LCD (Liguid 
Crystal Display) teknolojileri kullanılmaktadır. Tüm bu teknolojilerden kullanılan bilgisayar 
tipine bağlı olarak (PC-kişisel bilgisayar ve notebook-defter) faydalanılmaktadır. 


Tabii ki kullanılan yazıcıların da birçok tipleri vardır. Bunlar arasında artık neredeyse demode 
olmuş nokta-matriksli (dot-matrix ve letter-guality), satır, sayfa, püskürtme tipli (ink-jet), lazer 
olanları (siyah-beyaz veya renki) vardır. Yazıcı hızları da bilgisayar sistemlerinin hızlarına 
ayak uydurmak için sürekli artırılmaktadır. 


1.3 VERİLERİN BİLGİSAYARDA TEMSİLİ 
1.3.1 İKİLİK SAYI SİSTEMLERİ 


Bilgisayarlar, verileri hangi birim kullanılırsa kullanılsın, O ve I'in kombinasyonunu kullanarak 
ikilik düzende depolama yaparlar. Bilginin temel birimi “bitir. Bir doğru-yanlış veya 
evet-hayır veya açık-kapalı ile sağlanan bilgi miktarıdır. Yani 1 bit, bu iki durumdan sadece 
birini temsil eder. Sembolik olarak iki durumu temsil eden basamaklar 0 ve |'dir. Herhangi bir 
anda bir elektrik devresinden bir akım geçebilir (doğru) veya geçmeyebilir (yanlış). Akım bir 
tek yönde veya tersi yönde akabilir. Gerilim yüksek veya düşük olabilir; bir manyetik 
kaydedicinin bir unsuru manyetik olabilir veya olmayabilir. Bunların her biri iki elektriksel 
değerin bir alternatifi olup, bunlardan sadece birisi varolur. 


Bitlerin en iyi uygulama alanlarından biri de ikilik sayı sistemidir ve sayılar 0'lar ve I'lerden 
oluşan bir dizi karakterden ibarettir. Bunun altında yatan esas Tablo 1.1 de verilmektedir. 


Tablo 1.1: Onluk düzendeki sayıların ikilik düzendeki karşılığı. 


Sayı ikilik Değeri 


0 0 

1 1 

2 10 
4 100 
8 1000 
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Bu tablodan, ikilik değerin sonuna bir sıfır eklemenin onluk düzendeki sayının iki ile çarpımına 
karşılık geldiği görülmektedir. Bu tablo değerlerinin birleştirmesiyle onluk düzendeki diğer 
sayılar türetilebilir. 


3-11. (241) 5-101 (441) 6-110 (442) 7AİİI (443) 


Bu örneklerden 0 ile 7 arasındaki sayılar için sadece 3 bit'e (000—1 11) ihtiyaç olduğu aşikardır. 
Daha büyük sayılar için bit gereksinimi artmaktadır. Bütün sayıların ve karakterlerin bit 
bazında kodlanmalarına standartlar getirilmiştir. Bunlardan EBCDIC (Extended Binary Coded 
Decimal Interchange Code-Genelleştirilmiş İkilik Kodlu Ondalık Değişim Kodu) karakter 
başına 8 bit kullanır. Bunun anlamı da 256 kombinasyonun mevcut olmasıdır. Sadece, 0 ile 9 
arasındaki ilk 10 basamak için, ilk dört bit 1111 olarak atanır. Örneğin, bazı sayısal ve alfa 
sayısalların ikilik sistemdeki kodları 311110011, 7<11110111, A11000001, Z-11101001 
v.s olmaktadır. 


Başka kodlama sistemleri de geliştirilmiştir. Bugün en yaygın olarak kullanılan kodlardan biri 
de ASCII (American Standard Code for Information Exchange - Amerikan Bilgi Değişimi 
Standard Kodu) olup, 7 bitlik bir koddur. Kodlamalardaki kargaşayı gidermek ve bir 
standartlaşmaya gitmek amacıyla bir araya gelen iletişim endüstrisinin ortaya koyduğu bir 
koddur. Bu kodlama sistemi 128 şablon sunmaktadır. Bunlardan bazıları 0-0110000, 
120110001, 9-0111001, A-1000001, Z-1011010 v.s dir. 


1.3.2 OKTAL VE HEKZADESİMAL SAYISAL DÜZEN 


Sayılar büyüdükçe ikilik düzende sayıların temsili oldukça uzun ikilik-düzen sayıları ile 
sonuçlanır ve bu sayıların takibi güçleşir. Bu problemden sakınmak için ikilik-düzen sayılarının 
3 veya 4 bitlik guruplara ayrıldığı 8-lik düzen (oktal) veya 16-lık düzen (hekzadesimal) tek bir 
sayı ile temsil edilebilir. Bu fikri daha iyi anlamak için ikilik düzende 0 (0002) ile 7 (S1112) 
arasındaki herhangi bir sayıyı incelediğimizde bu sayıların 3 bit ile temsil edildiğini görürüz. 
Bu sayılar sekizlik (oktal) düzende kullanılan temel sayılardır. Bir oktal sistemin basamak 
değerleri, O'dan 7'e kadar, sekiz değer alabilir. İkilik düzendeki herhangi bir sayı 3 bitlik 
guruplara ayrılabilir ve bu gurupların yerine sekizlik karşılıklarını kullanabiliriz; örneğin, 
0100010011002 sayısını 0107001 | 001 | 100> şeklinde temsil edebiliriz. Burada her üç bitlik 
gurup bir sekizlik sayıyı temsil eder ki bu sayıyı 21144 şeklinde yazabiliriz. 


Benzer şekilde O (400002) ile 15 (11112) ile temsil edilen 4 bitlik guruplar 16'lik (hekza- 
desimal) düzeni temsil eder. Bir onaltılık sistemin basamakları O'dan 9'a kadar on adet ve 
A'dan F'e kadar altı adet olmak üzere toplam 16 değer alabilir. Örneğin, 010001001 1002 sayısı 
4 bitlik parçalara ayrıldığında 0100 | 0100 | 1100> elde edilir. Her 4 bitlik kısım onlatılık sayı 
düzenindeki karşılığı ile temsil edilirse 44Cı6 elde edilir. 


14 BİLGİSAYAR DİLLERİ VE PROGRAMLAMA 


Programlama dilleri iki ana kısımda toplanabilir: (1) makineye yönelmiş diller veya makine 
dilleri, (2) probleme yönelmiş diller ve bunlara ilişkin programlama sistemleri. 


Makine dilinde, bilgisayarda kullanılan yongaların özellikleri göz önünde tutularak, komutlarla 
yapılacak işlemler dizisi biçiminde ifade edilir; sonra programcı tarafından bu işlemler dizisi, 
bilgisayarın makine dilinde (ASSEMBLY dili olarak da anılır) kodlanır. Düşük seviyeli diller 
arasında sayılır. Bir makine dili olmakla beraber programcılar tarafından donanımları 
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programlamak için kullanılır. Elde edilen makine dilindeki program, gerekli veriler ile beraber, 
bilgisayar tarafından doğrudan icra edilebilir. Ancak makine dili ile programlamada bazı 
güçlükler mevcuttur. Tüm komutların makine dilinde kodlanması, yongaların farklılığı, 
komutların makine tarafından icra edilecek sırada yazılması, adreslemenin yapılması 
zorunluluğu, tüm mantıksal ve program düzenlemenin programcı tarafından yapılması, 
programcının kullandığı bilgisayar donanımını çok iyi anlaşılmış olması gereği, bu güçlüklerin 
başında sayılabilir. 


Tablo 1.2: 2, 8, 10, 16'lık sayı düzeni tablosu. 


10'luk Düzen o İkilik Düzen (oo Oktal (Sekizlik) o Hekzadesimal 


Düzen (16'lık) Düzen 
0 0000 0 0 
1 0001 1 1 
2 0010 2 2 
3 0011 3 3 
4 0100 4 4 
> 0101 5 9 
6 0110 6 6 
7 Olll 7 7 
8 1000 10 8 
9 1001 11 9 
10 1010 12 A 
11 1011 13 B 
12 1100 14 G 
13 1101 15 D 
14 1110 16 E 
15 1111 17 F 


Bilgisayarların problem çözme aracı olarak kullanılmaları için, bilgisayarlar ve kullanıcıları 
arasında bir iletişimin kurulması gerekir. Bilgisayarlar, bir anlamda, 0 ve | ile temsil edilen iki 
karakterden oluşan bir alfabeye dayanan, elektriğin diliyle konuşurlar. Bu Makine Dilinin 
detayları, bilgisayar tasarlandığında üretici firma tarafından belirlenir. Diğer taraftan, insanlar, 
doğal olarak, kendi ana dilleriyle konuşurlar. Bu iletişim engeli bir şekilde aşılmalıydı. İşte, bu 
iletişimin sağlanması işlemine programlama denir. Yıllar boyunca birçok programlama dilleri 
geliştirildi ve birçoğu da zamanla yok oldu. Kullanıcı adım adım ne yapılacağını detaylı 
talimatlarla makineye bildirir. Bu talimatların makine diline çevirisi, üretici firma tarafından 
geliştirilen ve bilgisayarın belleğine yerleştirilen programlar ile gerçekleştirilir. Bu tür çevirici 
programlara derleyici (compiler) adı verilir. 


1.4.1 YÜKSEK SEVİYELİ BİLGİSAYAR DİLLERİ 


Günümüzde ihtiyaca göre bilgisayarlar geliştikçe; bunların kullanılmasına, çalıştırılmasına ve 
ihtiyaç durumuna göre bilgisayar dilleri de gelişmektedir. Kullanılan programlama dilleri 
bilgisayarın belleğinde bulunan çevirici, derleyici veya benzer bir program ile makine diline 
çevrilir ve arzu edilen işlem yerine getirilir. 


1959-1964 arasında üretilen bilgisayarlarda transistörler (10 bin adet) kullanıldı. COBOL 
(işletmecilik, muhasebe amaçlı), FORTRAN (bilimsel ve mühendislik amaçlı), ALGOL 
(yapay-zeka sistemleri amaçlı) yüksek düzeyli diller ve işletim sistemleri geliştirildi. 
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Zamanımızda kullanılan programlama dilleri arasında FORTRAN, BASIC, PASCAL, C, C* 
gibi diller bulunmaktadır. Bu dillerden başka, özel amaçlı bilgisayarlarda kullanılan, askeri 
silah sistemleri ile uydu izleme ve takip gibi sistemlerde, sivil amaçlı üretim sistemlerine 
yönelik (CNC parça programlama gibi) diller de vardır. Yukarıda bahsedilen diller arasında 
amaçları bakımdan farklar olsa da kullanılan programlama mantığı açısından pek fark yoktur. 


FORTRAN (FORmula TRANslation), adından da anlaşıldığı gibi, matematiksel hesapların 
(mühendislikteki olduğu gibi) yoğun olduğu dallarda kullanılır. FORTRAN dili ilk önce 
1964'de geliştirilmiş olup ilk versiyonu FORTRAN IV olarak anılır. Yaklaşık 12 sene ufak 
tefek farklılıklardan oluşan birkaç versiyonu daha geliştirilmiştir. Ancak 1977 yılında toplanan 
FORTRAN Standartları Kurulu, yeni komutların ilave edildiği ve yapısal programlamanın 
geliştirildiği FORTRAN 77 dilinin temellerini ilan eder. Bilgisayarların ve donanımların ve 
yeni işletim sistemlerinin gösterdiği gelişim üzerine, bu gelişimlerin sunduğu olanaklardan en 
iyi şekilde yararlanmak, programlama gayretlerini azaltmak, program hızını artırmak amacıyla 
FORTRAN Standartları Kurulu 1990 senesinde FORTRAN 90 ve kısa bir süre sonra 1995 
senesinde toplandığında da FORTRAN 95 dillerini ilan eder. Aynı nedenlerden ötürü, 2000 ve 
2003 yıllarında FORTRAN diline yapılan eksiltme ve ilavelerle tekrar yenilenmiştir, yeni 
kurallar getirilmiştir. Ancak 2005 yılı itibarıyla FORTRAN 2003 programlarını derleyecek 
yazılımlar henüz piyasaya sürülmemiştir. FORTRAN 2000 ve 2003 ile girdi/çıktı, o veri 
manipülasyonu, türetilebilen veri tipi oluşturma gibi özeliklere eklemeler yapılmıştır. Ayrıca C 
dilinde yazılan prosedür alt programlarıyla daha kolay arayüz'ler oluşturulması amaçlanmıştır. 


BASIC ise genel amaçlı ve kullanımı kolay olan bir dildir. PASCAL, yine FORTRAN gibi, 
matematiksel hesaplarda ve genel amaçlı olarak kullanılan bir dil olup eski popülerliğini C 
diline kaptırmıştır. Ct ise bilimsel alanda ve genel amaçlı kullanılan oldukça gelişmiş bir dildir. 
Tüm bu dillere yüksek seviyeli diller denir. Bu programlama dillerinin Visual Basic, Visual 
Pascal ve Visual C/C#* olarak adlandırılan yazılımları mevcuttur. 


Bu diller arasındaki fark (amaçlarından başka) bu dillerde kullanılan deyimlerdir. Bazılarında 
aynı tip deyimler aynı amaçlar için kullanılır. Ama çoğu zaman kullanılan deyimler farklıdır. 
Fakat kullanılan deyimler ve komutlar İngilizce dilinden alınmış kelimeler veya kısaltma- 
lardan oluşur. 


Bilgisayarlar geliştikçe kullanılan tüm bu diller geliştirilmekte veya teknoloji gelişimle beraber 
programlama ihtiyaçlarına daha iyi cevap veren yeni diller ortaya çıkması olasıdır. 


1.4.2 İŞLETİM SİSTEMLERİ 


Üretici firma ile bunlara hizmet veren firmalar makinenin etkin bir şekilde kullanılması için 
gerekli bir takım programlar hazırlarlar. Bunlar bilgisayardaki bilgilerin saklandığı yerlere ait 
kayıtları, tarih, boyut ve isimlerine göre tutması, istenen bilgilerin ekrandan veya yazıcıdan 
çıktısının alınması v.s gibi işlemlerde kullanılırlar. Bu programların tümüne birden işletim 
sistemi (operating system) adı verilir. Günümüzde kişisel bilgisayarlarda kullanılan en yaygın 
işletim sistemleri Windows (95/98, 2000, XP, ME, NT vs) veya Unix işletim sistemleridir. 
Süper bilgisayar veya main-frame olarak adlandırılan çok kullanıcılı devasa bilgisayarlarda 
farklı işletim sistemleri kullanılmaktadır. 
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1.4.3 BİLGİSAYAR YARDIMIYLA PROBLEM ÇÖZME 


Bir bilgisayar aracılığıyla problem çözmek için öncelikle çözülecek problemin türüne uygun 
bir programlama dili seçilmelidir. Fen ve mühendislik bilimlerine en uygun programlama dili 
FORTRAN olmasının nedeni diğer programlama dillerinde üstünde fazla durulmayan ve bu 
bilim dallarında yaygın olarak kullanılan fonksiyonlar ve programlama komutlarının 
(matrislerle ilgili işlemler, maksimum, minimum, hiperbolik, trigonometrik, üstel ve logaritmik 
fonksiyonlar vb), kısacası arşiv programlarının FORTRAN derleyicilerinde mevcut olmasıdır. 
Örneğin, A ve B kompleks iki sayının çarpımını diğer dillerde yapmak için daha uzun süren bir 
dizi işlem yapmak gerekirken, FORTRAN ile bu işlem kısaca A * B şeklinde 
tanımlanabilmektedir. Bu nedenle kompleks analizin yoğunlukla kullanıldığı bir problemin 
çözümünde başka bir dilin kullanımı zor ve yoğun bir programlama gerektirecektir. 


Problem çözmenin adımları aşağıdaki sırayla verilebilir: 


1. Problemin tanımlanması (fiziksel sistemi idealleştiren bir matematiksel modele 
çevrilmesi ve matematiksel denklemlerin formülleştirilmesi), 

2. Problemin çözümüne uygun bir algoritmanın tespiti ve detaylı bir akış şemasının 

hazırlanması (problemin çözümü için adım-adım talimatlar dizisinin çizimsel 

gösterimi), 

Programın bir programlama dilinde kodlanması (kaynak programın hazırlanması), 

4. Programın bilgisayara bir girdi birimi vasıtasıyla, genellikle klavye, girişi ve yedek 
birimde (diskette) depolanması, 

5. Programın programlama diline uygun bir derleyici yazılım ile derlenmesi ve arşiv 
fonksiyonlarına bağlanarak gerekli mantıksal/matematiksel fonksiyonların ana 
programa aktarılması, 

6. Programın test edilerek, istenen işlemleri yapıp yapmadığının kontrol edilmesi, 

7. Program çalıştırılarak merkezi işlem biriminde, aritmetik ve kontrol birimleri ile 
depolama biriminin gerektikçe kullanımı, 

8. Sonuçların bir çıktı birimine (ekrana veya yazıcıya veya diskete) aktarılması. 


W 


Bu sırayı takip etmek problem çözme zamanını kısaltır; aksi takdirde yapılan hataları tespit 
etmek için uzun ve sıkıcı bir süre program ile boğuşmak zorunda kalabilirsiniz. Kısacası 
çözeceğiniz problemi, programlamaya başlamadan önce nasıl çözeceğinizi çok iyi bilmeniz 
gerekir. Bu nedenle problem çözme teknikleri, genellikle, programlama tekniklerinden daha 
fazla önem kazanmaktadır. 


1.44 PROGRAM DERLEME VE BAĞLAMA İŞLEMLERİ 


Bilgisayar programı yazım aşamasında kullanımı arzu edilen dilde, örneğin FORTRAN, 
kodlanır. Kodlanan bu programa kaynak programı (source program) denir. Kişisel 
bilgisayarlardaki kütük kullanımlarında, kütük isimleri bir uzantı ile beraber kullanılır. Bu 
uzantı FORTRAN 77 ile yazılmış kaynak programlarında, isim. FOR şeklindedir. FORTRAN 
90 ve 95 dillerinde ise sırasıyla isim.F90 ve isim.F95 şeklinde olmaktadır. 


Bilgisayar, maalesef, hazırladığımız kaynak programının dilinden, yani bu kitapta verilen 
küçük büyük programlardan, anlamaz. Programı makinenin (bilgisayarın) anlayacağı bir dile 
çevirmek gerekir. Bu nedenle, üretici veya yan firmalar, herhangi bir dilde yazılan programları 
makine diline çeviren yazılımlar hazırlarlar. Bu tür yazılımlara derleyici (compiler) adı verilir 
ve bilgisayarla beraber gelen standart programlardan olmayıp ayrıca satın alınması gerekir. 
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Derleyiciden geçirilen kaynak programında programlama kurallarına uymayan veya yanlış 
kullanılan deyimler varsa, bunlar tespit edilir ve kullanıcı uyarılır. Bu tür hatalara derleme 
hataları (compilation errors) denir. Derleyicilerin kullanım kılavuzunda bu hataların ne anlama 
geldiğini belirten bir listesi mevcuttur. Program, derleme işleminden, mutlaka hatalardan 
arınmış olarak geçmelidir. Halen çeşitli firmaların piyasaya sürdüğü FORTRAN derleyicileri 
vardır. Bunlardan kişisel, ağ ortamlı Windows veya Unix işletim sistemi altında çalışan 
bilgisayarlara göre hazırlananlardan bir kaçı MicroSoft Fortran, Lahey Fortran ve Prospero PC 
Fortran?dır 


Amerika Ulusal Standardlar Enstitüsü (American National Standards Institute-ANSI) 
FORTRAN dilini ve standart deyimlerim tanımlamıştır. ANSI standartlarına uyan programlar 
bütün FORTRAN derleyicilerinde derlenebilir. 


Program derleme işleminden başarı ile geçildiğinde sadece makinenin anlayacağı bir kütük 
yaratılır. Bu kütüğe hedef program (OBJect program) denir ve kaynak programın ismini taşır; 
fakat uzantısı (. OBJ) farklıdır. Örneğin, yukarıda bahsedilen MATRIS .F90 (Fortran 90) veya 
MATRIS.F95 (Fortran 95) isimli kaynak program başarı ile derlendikten sonra oluşturulan 
hedef program MATRIS. 0B)J ismini alır. 


Programın derleme aşamasından geçmesi, programın çalıştırılması için, yeterli değildir. 
Programın kullanıldığı sistemde çalıştırılabilmesi ve programda kullanılan bazı arşiv 
fonksiyonlarının ana program ile bağlantısının sağlanması için bağlama (link) aşamasından 
geçirilmesi gerekir. Bu işlem DOS ortamında çalıştırılan derleyicilerde LINK.EXE programı 
ile yapılmaktadır. Fakat Windows işletim sistemi altında çalışan derleyici yazılımlarının, kendi 
bağlayıcılarını (linker) tasarladıkları ve bunları kullandıkları bilinmektedir. Bazı derleyiciler, 
derleme işlemi sonrası otomatik olarak bağlama işlemini yapar. 


Bağlama işleminden geçirilen programın isim.EXE uzantısını taşıyan yeni bir versiyonu 
oluşturulur. Programın, işte, bu versiyonuna çalıştırılabilir program (EXEcutable program) 
denir. Programın .EXE versiyonu yaratıldıktan sonra, programın ikonuna fare ile iki kez 


tıklamakla veya DOS ortamından çalıştırılacaksa program isminin komut satırından girilmesi, 
bunu takiben RETURN veya ENTER tuşuna basılmasıyla, çalıştırılır. 


ALIŞTIRMALAR 


1.1 Bir kişisel bilgisayardaki (PC) girdi, çıktı ve işlem birimlerini tanımlayınız. Girdi birimi 
birden fazla olabilir mi? 


1.2 Bir bilgisayarın sabit disk ve esnek disk unsurundan bahsederken ne kastediliyor? 
Aralarındaki farklar nelerdir? 


1.3 Bir PC için yazılım, donanım ve bellenim unsurlarına örnekler veriniz. 
1.4 ANSI ve ASCII terimlerini tanımlayınız. Bu iki kısaltma arasında bir yakınlık var mıdır? 


1.55 FORTRAN, PASCAL, C, COBOL ve BASIC dilleri hangi alanlarda kullanılmaları için 
tasarlanmışlardır? 
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1.6 


1.7 


1.8 


1.9 


Bir FORTRAN kaynak programının çalıştırılabilmesi için hangi aşamalardan 
geçirilmelidir? Bu aşamaları ayrıntılı olarak açıklayınız. 


Aşağıda ikilik düzende verilen sayıların ondalık düzendeki gösterimini bulunuz. 
110110112 101110112 001101012 111000102 


Bilgisayarda bir mektup yazmak ve grafik çizmek isterseniz, bunu nasıl başarır siniz? 
Uygulama programları deyimi size ne ifade ediyor? 


Çözmek istediğiniz herhangi bir problemi bilgisayara nasıl anlatırsınız? Bilgisayar size 
nasıl cevap verir? 


1.10 Aşağıda ikilik düzende verilen sayıları oktal ve hekzadesimal sayı karşılıklarını bulunuz. 


(a) 11100101101011012 (b) 11101111017 O (e) 1001011100111111> 


1.11 Aşağıdaki sayıları onluk ve ikilik düzende temsil ediniz. 


(a) 3773 (b) LA8i6 o (c) 1lis (d) IFFı6 


1.12 Aşağıdaki sayıları hekzadesimal düzende temsil ediniz. 


(a) 570 (6) -2510 o (0) 10240 o (d) 1024p 
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FORTRAN 90/95 DİLİNİN ESASLARI 


2.1 BİR FORTRAN DEYİMİNİN YAPISI 


Bir FORTRAN programında, programcının yapmak istediği işlemi gören bir dizi deyimlerin 
bir araya getirilmesinden ibarettir. Deyimler yürütme (icra) deyimleri (toplama, çıkarma, 
çarpma vs aritmetik ve mantıksal ifadeler ve bunlarla işlemler) ile yürütme içermeyen 
deyimlerden (programın bilgi deyimleri) oluşur. 


İcra edilebilen bir Fortran satırı en fazla 132 karakter uzunluğa ulaşabilir. Bir Fortran deyimi 
tek bir satıra sığdırılamıyorsa, ve (“&”) işareti kullanılarak bir alt satırdan devam edilebilir. 
Serbest-kaynak formunda ((ree-source form) yazılan Fortran deyimleri programın herhangi 
bir sütünundan başlayabilir. Örneğin, 


Abc -a*t b tc !I üç değerin toplanması deyimi 
Abc -a tb & 
£ G !I iki satırda üç değerin toplanması 


Abc -at b & 
& tc !I iki satırda üç değerin toplanması 


Bir icra deyimi en fazla 40 satırdan oluşabilir. 


Noktalı virgül (; ) satır ayracı olarak kullanılmaktadır. Çok kısa deyimleri ayrı satırlarda 
yazmak yerine tek bir satıra sığdırmak amacıyla kullanılabilir. Örneğin, 


Satır İfade 
NE a-1.5 
Zu x-3.*a-SIN(a) 
Bi yz (atx) /(x*x-3.*a) 


program deyimlerini aşağıdaki gibi tek satırda girebiliriz: 
azl.5; x-3.*a-SIN(a); yz(a1tx) /(x*x-3.*a) 


Sabit-kaynak formunda (fixed-source form) her satır 80 sütundan oluşur. 1-5 sütunlar arası 
format ve satır etiketleri için kullanılır. Birinci ünlem (“1”) karakterinin kullanılması satırın 
açıklama satırı olduğunu belirtir. Altıncı sütun normalde boş bırakılması gerekir ancak bir 
Fortran deyimi bir satıra sığmıyorsa 6.cı sütuna herhangi bir karakter konularak deyimin bu 
satırı da işgal ettiği belirtilmiş olur. 7 ile 72 sütunlar arası Fortran deyimlerinin yazılabileceği 
sütunlardır. 
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5 Fortran 77 sabit-kaynak formu kullanılır ve Fortran 90'da da kulanı- 
) m labilmektedir. Ancak Fortran 90/95 programı hazırlarken serbest-kaynak 


formunu kullanmaya özen gösteriniz! 


2.2 BİR FORTAN PROGRAMININ YAPISI 


FORTRAN kaynak programları, öncelikle bir yazılımı kullanılarak hazırlanır ve ASCII olarak, 
yani yazıldığı gibi programcı tarafından okunabilen bir formatta, kaydedilir. Fortran kaynak 
programları belirli bir sırada yazılan yürütme ve yürütme içermeyen deyimlerin karışımından 
oluşur. Bir programı üç temel kısma ayırabiliriz: (1) Tanımlama kısmı, programın başında yer 
alır ve yürütme içermeyen deyimlerden oluşur: programda kullanılan değişkenler ve sabitlerin 
tipleri (tamsayı, gerçek, mantıksal, vs) tanımlanır; (2) Yürütme kısmı, program tarafından 
yapılması istenen işlemleri içeren bir veya daha fazla deyimden ve satırdan oluşur; (3) 
programın çalışmasını durduran deyim(ler), derleyiciye programı durdur komutunu verir. 


2.2.1 TANIMLAMA KISMI 


Tanımlama kısmı, ana programda, PROGRAM deyimi ve bunu takiben program ismini içerir. 
Alt programlarda FUNCTION veya SUBROUTINE ismini alır. Bu deyim her programın ilk 
satırıdır. Bu satırı tanımlama satır(lar)ı izler. Aşağıdaki örnek programda ilk program 
programın ismidir. INTEGER satırında ise a, b ve c'nin tamsayı olduğu belirtilmiştir. 


PROGRAM ilk program 


!I Programda kullanılan değişkenlerin tanımlanması kısmı 
INTEGER :: a, b, c 


! Bir biri ile çarpılacak iki tamsayının programa okutulması 
WRITE(*, *) 'Çarpılacak olan A ve B sayılarını girin' 
READ(*,*) a, b 


!I İşlem kısmı : a ve b sayılarının çarpılması 
cz-a * b 


!I Sonucun yazdırılması 
WRITE (*, *) 'Sonuçz', c 


! İşlem ve program sonu 


END PROGRAM 


2.2.2 YÜRÜTME KISMI 


Programın kullandığı veriler ya ekrandan veya kütükten ya program içinde atama deyimleri ile 
ya da her iki yolla programa girdi olarak temin edilir. Program amacına uygun çeşitli 
işlemler yapıldıktan sonra sonuçlar ekrana, kütüğe veya hem ekran hemde kütüğe 
gönderilir. Bu amaçla READ ve WRITE gibi deyimler belirtilen işi gören (okuma ve yazma) 
deyimleri kullanılır. Aritmetik veya mantıksal işlemler yürütme deyimleri arasında yer alır. 
Örneğin, yukarıdaki örnekte c-a*-b işlemi de bir yürütme deyimdir. 
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2.2.3 SONUÇ KISMI 


Programın sonuç kısmı STOP ve END PROGRAM/FUNCTION /SUBROUTINE deyimle- 
rinden birinden oluşur. END PROGRAM deyimine ulaşıldığında programın kendisi otomatik 
olarak STOP deyimini koyar ve programı durdurur. END FUNCTION/SUBROUTINE 
deyiminde ise bir RETURN deyimi ekler ve çağırıldığı programdaki satırın sonuna geri döner. 


2.3 SABİTLER 


Sabit, programda belirli bir sayıyı tanımlar. Tamsayı (INTEGER) ve gerçek sayı (REAL, 
DOUBLE PRECISTON) sabitler olmak üzere iki tür sayısal sabit kullanılır. Sayısal sabitler, 
ayrıca, basamak sayısı itibarıyla sınıflandırılır. Bir sayısal sabit 0-9 basamaklarından oluşur. 
Rakamlar arasına boşluk bulunabilir. FORTRAN dilinde sayısal sabitlere ilave olarak, çeşitli 
amaçlar için, mantıksal (LOGICAL) sabitler (doğru-. TRUE. veya yanlış-.FALSE.), 
karmaşık sayı (COMPLEX), alfa sayısal sabitler (CHARACTER) de kullanılır. 


2.3.1 INTEGER (TAMSAYI) SABİTLER 


FORTRAN 90/95'de bir INTEGER (tamsayı) sabiti, ondalık noktasına sahip olmayan 
herhangi bir sayı olarak tanımlanır. Pozitif ve negatif değerler alabileceği gibi, "sıfır" 
değerini de alabilir. Tam sayının “pozitif” olduğu durumlarda artı işareti 
kullanılmayabilir. INTEGER olarak tanımlanan bir tamsayı sabitinin alabileceği değerler 
-2147483648 (-23!-1) ile 2147483647 (23!- 1) arasında değişir ve default (otomatik ayar) 
olarak her INTEGER sabit için 4 bayt hafıza gerektirir. Örnekler: 


1234 1900 —567 *3289 12 345 
345 4 *89 turl B'10101' 2"1AC3" 


Sabitlerin arasında boşluklara müsaade edildiğinden, 12 345 geçerli bir tamsayı 
sabitidir ve karşılığı 12345 dir; 345 4 sabiti 4 baytlık tamsayıyı belirtmektedir. 
*89 turl sayısıda tip tanımlamada turl olarak tanımlanmış bir tamsayıdır. 
B'10101' ve 2Z"1AC3" geçerli tamsayı sabitlerdir. B (binary), O (oktal) ve 7 
(hegzadesimal) harflerini takiben tırnak içinde verilen sabitlerdir. 


INTEGER*I tanımında, hafızada bu tamsayı sabiti için | bayt yer ayrılır ve sabitin 
alabileceği tamsayı değerler aralığı -127 (-27 * 1) ile 127 (27 - 1) arasındadır. Diğer 
taraftan, INTEGER*2 tanımında, sabitin alabileceği tamsayı değerler aralığı -32767 
(<2'5 #1) ile 32767 (2'İ - 1) arasında olup sabit için 2 bayt'lık hafıza yeri ayrılır. 


Tamsayıların yanlış kullanımlarına bazı örnekler ise aşağıda verilmektedir. 
1,234 —-319.000 -—255,670.1 


Buradaki hatalar sayı içinde virgül, ondalık noktası veya her ikisinin kullanımından 
kaynaklanmaktadır. 
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2.3.2 REAL (GERÇEK SAYI) SABİTLER 


Bir ondalık sayıya REAL (yani Reel veya Gerçek) sayı denir. Bu sayılar aynı şekilde pozitif 
veya negatif olabilirler. REAL sabitlerin alabileceği değer aralığı 1.18E-38 (1.18x1039) ile 
3.4Et39 (3.4x109) arasındadır ve kaynak program yazılırken, gerçek sabitlere mutlaka 
ondalık noktası konmalıdır. Bir REAL sabit için hafızada 4 bayt yer ayrılır. 


REAL sabitler iki türlü ifade edilebilir: (i) esas REAL sabit ve (ii) eksponansiyel; yani üstel, 
şekilde ifade edilebilen REAL sabit. REAL sabitlerden, (i) grubuna örnekler şöyle verilebilir: 


2.3187 4. v2 
0.00015 —-1703.687003 1.24 4 


Buradaki örneklerden 1.24 4 sayısının 4 bayt olarak tanımlanan 1.24 değerli bir sabit 
olduğunu belirtir. 

Üstel gerçek sabit "E" (veya "e") harfi içeren ve on'un kuvveti ile çarpımını veren sayılardır. 
Bu sayı "esas" ve "üst" olarak iki kısımdan oluşur ve aEn (<4x10" ) şeklinde belirtilir. Esas 
kısım “a” ondalık noktası içeren bir sayıdır. Üst kısmı ise “7” tamsayı olmalıdır! 


REAL sabitlerin doğru kullanıma ilişkin bazı örnekler aşağıda verilmiştir: 


2.1E2 210 > 21x107 
2.1e2 210 
.0004E43 0.4 > 0004x103 
.135e-2 0.00135 > .135x107 
1.2334E-1 0.12334 > 1.2334 x107 
1.23 34e-01 0.12334 


Yukarıdaki örnekleri incelediğimizde esas kısımlar sırasıyla 2.1, 0.0004 ve 0.135 tir; 
diğer taraftan üstler 2, 4-3 ve —2, yani tamsayı, olmaktadır. 


REAL sabitlerin yanlış kullanımına bazı örnekler aşağıda verilmektedir: 


32,129.5 344 —1x7873B-0...5 1/2 


Yukarıdaki örneklerde yapılan hatalar şöyle açıklanabilir; (a) 32,129.5 sayısındaki virgül 
kullanımı, (b) 344 sayısının ondalık noktası içermemesi, (c) üstün O. 5 olması, yani tamsayı 
olmaması, (d) 1/2 sayısının kesirli olarak kullanımıdır (çünkü kesir en yakın tam sayıya 
yuvarlanarak 1/20 tamsayı değerini alacaktır). 


2.3.3 DOUBLE PRECISTON (ÇİFT HASSASİYETLİ) SABİTLER 


Bir DOUBLE PRECISTION (DP) sabit de aslında bir REAL sayıdır; yanlız DP sayının 
basamak hassasiyeti daha fazladır. Bu nedenle çift hassasiyetli sabitler olarak anılırlar. 
Bir DOUBLE PRECISTION sabit 2.230-308 (2.23x10-308) ile 1.79D0308 (1.79x10395) 
arasında değerler alabilir. (Nor: Burada "D" veya "d" harfi eksponansiyel DOUBLE 
PRECİSTON sabiti ifade etmektedir ve "E" ile tamamen aynı işleve sahiptir). Bu sabitler için 
hafızada 8 bayt yer ayrılır ki bu durumlarda gerçek sayının ondalık noktasından itibaren 15 
ile 16 basamağa kadar kısmının bellekte saklanmasına olanak sağlar. Aritmetik işlemler DP 
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programlamada 15-16 basamak doğrulukla yapılır. Oysa bellekte saklama ve işlem 
yaparken bu basamak hassasiyeti REAL sabitlerde 7 ile 8 arasında değişmektedir. 
REAL(KIND-8) tip tanımı DOUBLE PRECISTON tanımına karşılık gelir ve bellek 
gereksinimi her iki durumda da 8 bayttır. Örnekler: 


Sabit 
1.0dil 
.1DO 
13.156D0-2 


Karşılığı 
10.0 


0.1 
0.13156 


2.3.4 COMPLEX (KARMAŞIK SAYILI) SABİTLER 


Bir COMPLEX sabit ile, kompleks (karmaşık) sayı temsil edilir ve bu sayı bir çift REAL 
sayının belirli bir düzende ifade edilmesidir. Bu düzen (1.,2.) şeklinde olup, ilk sayı 
karmaşık sayının “gerçek” kısma ve ikinci sayı da “sanal” kısma karşılık gelir (yani, 1-4 2i ). 
Karmaşık sayı sabiti "(",")" parantezleri içinde yer alır ve gerçek ile sanal kısım birbirinden 
virgül ile ayrılır. Bir karmaşık sayı iki gerçek sayıdan oluştuğundan dolayı, bellekte 
saklanması için 444-8 bayt gerektirir. Bazı örnekler aşağıda verilmiştir: 


(0.,0.) (50,-3.2) 
(1,3) (1.e2,3.e-2) 


(4.3e1t2,-2. 76-3) 
(-3.d14,2.3 8) 


Karmaşık sayılar çift hassasiyetli, yani DOUBLE PRECISTON, olarak tanımlanmak 
istendiğinde tip tanımlama COMPLEX* 16 olarak yapılmalıdır çünkü karmaşık sayı iki çift 
hassasiyetli gerçek sayıdan oluştuğundan dolayı bellekte saklanması için 88-16 bayt 
gerekir. 


2.3.5 LOGICAL (MANTIKSAL) SABİTLER 


Bir LOGICAL (mantıksal) sabitin (LOGICAL*I veya LOGICAL*4) alabileceği değerler 
'doğru' (TRUE) veya 'yalnış' (FALSE) tır. Atama esnasında TRUE veya FALSE ifadesinin 
önüne ve arkasına nokta konarak kullanılır. 


Kullanım Şekli Karşılığı 

.TRUE. DOĞRU 

.FALSE. YANLIŞ 
Örnekler: 

Doğru Kullanım Yalnış Kullanım 

A —-— .TRUE. A - TRUE 

OK - .FALSE. OK - FALSE. 


2.3.6 CHARACTER (ALFA SAYISAL, KARAKTERLERDEN OLUŞAN) SABİTLER 


Bir CHARACTER sabiti, tek veya çift tırnak işareti (') veya (") ile kapatılan ve sembol ile 
harflerden oluşan alfa sayısallardır (s/ring). Alfa sayısal, bellekte içerdiği boşluklar ile beraber 
ekranda gözüktüğü gibi, depolanır. Bir CHARACTER sabitinin içereceği minimum sembol 
sayısı bir'dir. Maksimum sayı ise kullanılan derleyiciye bağlıdır; ama genelde bu sınır 
32767'dir. Alfa sayısal sabitin uzunluğu (karakter sayısı) iki tırnak işareti içinde kalan 
karakter sayısıdır. Bu sayı aynı zamanda alfa sayısalın hafızda tutulması için gerekli “bayt” 
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sayısını verir. Örneğin aşağıda verilen tabloda çeşitli alfa sayısallar ve uzunlukları 
verilmektedir (burada * * ler boşluğu ifade ediyor). 


Sabit Değer Uzunluk 
'abc' abc > 
abi" ab"c 4 
“a bg a bc 4 
“a be” a bc 5 


Bazı geçerli CHARACTER sabitlerine örnekler: 


'TEL: (222) 2345678' 'AHMET' 'NO ; ' 
'$1,200' 'OY — 535' "10,000 TL.' 
"CADDE : " U5'aL 


2.4 DEĞİŞKENLER 


Normal cebirsel işlemlerde olduğu gibi, fiziksel miktarlar sembol veya harflerle ifade 
edilmekte (örneğin kütle m, yoğunluk p v.s) ve bunlarla m — p V gibi aritmetiksel işlemler 
yapılabilmektedir. Formüllerdeki bu sembol veya harflerin her birine değişken denir. Ancak 
FORTRAN dilinde, programın başından sonuna kadar aynı amaçla kullanılan, bir veya 
daha fazla harf veya rakam karakterinden oluşan isimlere değişken adı verilir. Değişken 
isimleri aşağıdaki kurallara tabidir: 


1. Değişken ismi harf veya sayıların kombinasyonu olabilir; fakat mutlaka İngilizce 
alfabesindeki bir harf ile başlamalıdır. Özel karakter veya sembollerin kullanımına (*, 
—, /*, a, Bp, b, 0,7, &,#, ...) müsaade edilmez. Ayrıca Türkçe alfabesinde 
kullanılanı, İ, ç, Ç, $, $, &, G,ü,Ü, 6, Ö harfleri de hiç bir suretle değişken veya 
sabit tanımında kullanılamazlar. 

2. Bir değişken ismi en fazla 31 karakter ile sınırlıdır. Yalnız bazı derleyicilerde ANSI 
Standardının dışına çıkarak daha uzun isim tanımına müsaade etmektedirler. Bu 
nedenle piyasada mevcut çeşitli FORTRAN derleyicilerin kullanım kılavuzuna 
başvurunuz. Değişken isimlerinde under score adı verilen (“ ”) karakteri 
kullanılabilir. 

3. FORTRAN dilinin READ, PRINT, IF, DO, REAL ve benzeri deyim ve 
komutlarının isimleri bire bir değişken ismi olarak kullanılamaz. 

4. Aynı değişken ismi aynı program veya alt programda, farklı amaçlar için, birden fazla 
kullanılamaz. Ancak farklı alt programlarda aynı değişken isimi farklı amaçlarda 
kullanılabilir. 

5. Programda kullanılmadan önce, bir değişken ismine, değişkenin tipine uygun bir 
değer atanmalıdır. Aksi takdirde aldığı ilk değer bellek değeri olacaktır. Değişkenin 
bellek değeri değişkenin tipine göre, tamsayı değişken için (0), gerçek değişken için 
(0.0) veya alfa sayısal değişken için "boşluk" (yani ' ") olacaktır. 

6. Bir değişken ismine DIMENSTON deyimi ile boyut kazandırılarak, indisli değişken 
adını verdiğimiz değişken haline getirilebilir. Böylece indisli değişkenler ile bir isim 
altında çok sayıda değişkeni sayısal, mantıksal veya alfa sayısal değeri temsil etme 
olanağı sağlanır. Örneğin, (4)-|J4,,4).4;.--,a,| tek indisli, (61<(b,,,b,5.b13.***.b, 


bb bs. b, yl ise iki indisli değişkenleri temsil etmektedir. 


n 
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Değişkenler, bilgisayar terminolojisinde bellek alanının adı olarak tanımlanır. Hatırlanması 
gereken önemli bir özelliği, bellek alanına bilgi yazıldığında önceki bilgilerin silineceği, 
bellek alanından bilgi okunduğunda ise bellek alanındaki bilgilerin aynen korunacağıdır. 


Değişkenler ve sabitler, programın başında, tiplerine göre tanımlanmalıdır (REAL, 
INTEGER, LOGICAL, COMPLEX v.s.). Program başında tanımlanmayan değişkenler 
FORTRAN derleyicisinin otomatik (default) tanımına tabi olurlar. Otomatik tip tanımına 
göre, ilk harfi I,J,K, 1, M, N olan harflerle başlayan değişken veya sabitler INTEGER, 
diğer harflerle başlayanların ise REAL olduğu kabul edilir. 


1 Program yazarken kullandığımız sabit ve değişken isimleri, hem kendimizin 


hem de başkalarının takip edebilmesi bakımından, anlamlı, anlaşılır ve 
pratik olmalıdır. 


2.4.1 SAYISAL VE MANTIKSAL DEĞİŞKEN TANIMLANMASI 


Belirli bir tipteki değişkenler program başında belirtilmelidir. Belirtimin en genel şekli 


<Tip> |(,<nitelik listesi>l :: <değişken listesi> |-<değer>| 


olarak verilmiştir. Burada “::” esasen opsiyoneldir; yani kullanılmasa da olur, ancak 
kullanmanın bir zararı yoktur. Ancak atama satırı <nitelik Jistesi> veya 
—<değer> içeriyorsa :: kullanılması zorunludur. <nitelik listesi>, 
PARAMETER, SAVE, INTENT, POINTER, TARGET ve DIMENSTION gibi niteliklerden 
oluşabilir. Bir değişken yukarıdaki bir veya daha fazla nitelik içerebilir. Aşağıda “geçerli” 
tip atamalarına örnekler verilmiştir: 


REAL :: x, y, z 
INTEGER :: i, j, sayi 


LOGICAL, POINTER :: devre 1, devre 2, devre 3 
REAL :: Bir degisken ismi 31 karakter 

REAL, DIMENSTION(10,10) :: y, z(10) 

DOUBLE PRECISTON, DIMENSION(0:9,0:9) :: cb 


Bir satırda aynı tipteki birden fazla değişkene ilk veya başlangıç değerleri atanabilir. Bu 
işlem, tip tanımlamasını takiben değişken eşit işareti ile aşağıdaki gibi yapılır. 


INTEGER 2: izl2, jx99 
REAL :: max deger-10.e5 
LOGICAL :: acikz.TRUE., kapali-.false. 


Bir tarihi (gün, ay, yıl) üç tamsayı olarak kullanmak istiyorsak, otomatik (default) tip 
tanımlama ile gun, ay ve yil isimlerini INTEGER olarak kullanmak mümkün değildir. 
Bunları aşağıdaki gibi INTEGER olarak tanımlamalıyız. 


INTEGER :: gun, ay, yil 
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Bu tür tanımlamaların yapıldığı deyimlere belirtme veya tanımlama veya bildirim deyimleri 
(Specification Statement) denir. Bu listede yer alan değişkenler virgül ile ayrılan geçerli (yani, 
yukarıda bahsedilen değişken kurallarına uyan) FORTRAN isimleridir. Aynı zamanda, REAL 
olarak tanımlanan bir değişken INTEGER olarak (ya da tersi) bildirmi yapılamaz. Örnekler: 


REAL :: kutle, ivme, hiz 
INTEGER :: top, sayi, tsayi 


Bu örneğe dikkat edildiğinde, kutle ve ivme değişkenleri otomatik tip bildiriminde 
INTEGER bildirisi (K ve I harfleri) ile başladığı görülür. Oysa kütle, ivme ve hız bir 
tamsayı olamayacağı için, bu isimleri yukarıdaki gibi REAL olarak tanımlamamız gerekir. 


2.4.2 KARAKTER VE ALFA SAYISAL DEĞİŞKEN TANIMLAMASI 
Karakter veya alfa sayısal tipteki değişkenlerin tanımlanması, aynı sayısal değişkenlerin 


tanımlanmasında olduğu gibi yapılır. Ancak tip tanımlama için CHARACTER deyimi 
kullanılır. Belirtimin en genel şekli 


CHARACTER |, (LEN—<karakter uzunluğu>)|) |I,<nitelik 


listesi>)|) :: <değişken listesi> |-<değer>| 
Bazı örnekler 
CHARACTER(LEN-12) :: isim, soyad 
CHARACTER :: cinsiyet 
CHARACTER(LEN—32) :: cadde, sokak*25 
CHARACTER :: AY*7, YIL*4, GUN*8 


Yukarıdaki örneklerde isim, soyad için 12, cinsiyet için Il, cadde için 32 ve sokak 
için 25 karakter uzunluk (veya bayt) atama yapılmıştır. Programda kullanılan alfa sayısal 
değişkenlerin uzunlukları aynı ise, örneğin, Ad, Soyad ve Adres maksimum 20 karakter 
uzunlukta olması isteniyorsa, 


CHARACTER(LEN-20) :: Ad, Soyad, Adres 
şeklinde de tanımlanabilir. Diğer bir tanımlama 
CHARACTER(LEN-:12) :: Ad, Soyad, Tel*9, Adres*55 


şeklinde olabilmektedir. Bu tanımlama ile Ad ve Soyad 12, Tel 9, Adres ise 55 karakter 
uzunluğunda olacağı bildirilmektedir. 


2.4.3 SEMBOLİK SABİTLERİN TANIMLANMASI 


Bir program içinde değişken tanımlama satırlarında kullanılmak üzere sembolik sabitler 
oluşturulabilir. PARAMETER ile tanımlanan sabitler, tanımlama kısmında kullanılabilir. 
Genel kullanım şekli aşağıda verilmiştir. 
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<Tip>, PARAMETER :: <değişken I-değer,... > 


Örnekler: 


REAL, PARAMETER :: pi-3.14159 

INTEGER, PARAMETER :: nsatirzl10, nsutunz12 

REAL, DIMENSTION(nsatir,nsutun) :: matrisA, matrisB 
CHARACTER(LEN-5), PARAMETER :: p1-—"Partil",p2-"Parti2" 


2.4.4 SABİT VE DEĞİŞKENLERİ KIND İLE TANIMLAMA 


FORTRAN'da değişken veya veri türü belirleme işlemi, tek veya çift hassasiyet türü, KIND 
ile yapılabilir. Tek ve çift hassasiyet bildiriminde her türün kendine has bir KIND-sayısı 
vardır. Örneğin, 

REAL (KIND—-1) degerl 

REAL (KIND-4) deger2 

REAL (KIND-8), DIMENSTION(20) :: vektor 

REAL (4) deniz 


REAL değişkenin türü parantez içinde KIND ifadesi kullanılarak veya kullanmadan belirtilir. 
Eğer KIND kullanılmaz ise tür için otomatik ayar değeri kullanılır bu değer 4'dür. 


Çeşitli Fortran derleyicilerinde tür deyimi farklı sayı türlerini ifade edebilir. Örneğin, 32- 
bit'lik bir gerçek sayı bir derleyicide KIND-I, 64-bit'lik bir gerçek sayı da KIND-4 
olabilirken, başka bir derleyicide, 32-bit'lik bir gerçek sayı KIND-4, 64-bit'lik bir gerçek 
sayı da KIND-8 olabilmektedir. Bu durumu açıklığa kavuşturmak için, kullandığınız 
derleyicinin El Kitabına başvurunuz. Bu nedenle, farklı derleyicilerle çalıştırabilmek için 
programda en az değişikliği yapmanızı gerektirecek şekilde programınızı yazınız. 


INTEGER, PARAMETER :: tek- 4 ! Derleyiciye bağlı bir değer 
INTEGER, PARAMETER :: cift-8 ! Derleyiciye bağlı bir değer 
REAL (KIND-tek) :: deger? 

REAL (KIND-cift), DIMENSION(20) :: vektor 

REAL(tek) :: deniz 


Derleyici gerektirdiği için yukarıdaki programda tek hassasiyet için KIND-I ve çift 
hassasiyet için KIND-4 tanımlaması yapılması gerekirse, programın sadece iki satırında 
değişiklik yapılması gerekecektir. REAL sabitleri tanımlarken de türünü belirtmek 
mümkündür: 


34.15 ! Tek hassasiyet (KIND-A4) 

34.15 4 I KIND-4 

34.15E3 ! Tek hassasiyet (KIND-A ) 

34.15 cift ! cift PARAMETER deyimi ile 8 b olarak atanmış olmalı 
34.15D3 ! Çift hassasiyetli 
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2.4.5 HASSASİYETİN İŞLEMCİDEN BAĞIMSIZ OLARAK BELİRLENMESİ 


Bir FORTRAN programını kullanmada karşılaşılan problemlerden birisi de, derlenmiş 
programı farklı bilgisayarlarda çalıştırmaya kalktığınızda “tek” veya “çif” hassasiyetin bit 
tanımlamasının kaynaklanan farklılıkların oluşabilmesidir. FORTRAN 90/95 ile kullanılan 
sayıların basamak hassasiyeti ve üst sınırlarını program içinde tanımlamak mümkün 
olmaktadır; böylece bir işlemciden bir başkasına tip farklılığından doğan sorun giderilir. Bu 
işlem aşağıdaki şekilde gerçekleştirilir: 


Kind Nosu-SELECTED REAL KIND (p-hassasiyet,r-aralık) 


Burada p noktadan sonra arzu edilen basamak hassasiyeti, r de 10” olarak algılanan, sayının 
üslü sınırıdır. Bu iki değerden sadece birisi de kullanılabilir; yani her iki seçeneği kullanmak 
zorunluluğu yoktur. Aşağıda bir dizi geçerli tanımlama deyimleri verilmiştir: 


Kind Nosu - SELECTED REAL KIND(p-6,r-37) 

Kind Nosu - SELECTED REAL KIND(p-12) 

Kind Nosu - SELECTED REAL KIND (r-100) 

Kind Nosu > SELECTED REAL KIND(13,200) ! pz13, r-200 
Kind Nosu > SELECTED REAL KIND (13) ! p-13 

Kind Nosu - SELECTED REAL KIND(p-17) 


Örnekler 
INTEGER, PARAMETER:: tek —SELECTED REAL KIND(p-6,r-37) 
INTEGER, PARAMETER:: cift-SELECTED REAL KIND (p-13,r-200) 
REAL (KIND-tek) :: Sayi 1, Sayi 2, Toplam-0.0 
REAL (KIND-Cİft):: A, B, C, Sayi-0.0 cift 


şeklinde kullanılabilir. 
2.55 ARİTMETİK İFADELER 


Aritmetik ifadeler daha önce değer atanan sabit veya değişkenlere birden fazla aritmetik 
işlemin uygulandığı talimatlardır. İfade C-A*B gibi oldukça basit olabileceği gibi, birkaç 
satırı işgal edebilecek uzunlukta ve karmaşıklıkta da karşımıza çıkabilir. Aritmetik işlemler 
yapılarak, ifadenin solundaki değişkene hesaplanan bir tek değer atanır. 


Normal aritmetik işlemler FORTRAN'da aşağıdaki semboller ile gerçekleştirilir. 


* Toplama * Çarpma 
— Çıkarma / Bölme 
** Üstalma 


Aritmetik ifade oluşturmak için ortaya konan kurallar şunlardır: 


1. Bir işlemde iki aritmetik operatör yan yana, *—, **, */ (** hariç) gibi, 
kullanılamaz. 
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2. Çarpma, bölme ve üst alma işlemleri iki sayı veya değişken ile beraber kullanılır. 
Örneğin, 
X*Y Z2/3.0 AX*4 


FORTRAN'da aritmetik ifadelerde dikkat edilecek hususlar şunlardır: 


1. Çarpma işlemi cebirdeki şekilde basitleştirilemez. Örneğin, a(b--c) ifadesi A(B*C ) 
olarak değil A* (B*C) olarak yazılmalıdır. 


2. Yan yana kullanılan operatörlere dikkat edilmelidir. Örneğin, 


Geçersiz ifade Geçerli ifade o Cebirsel ifade 


X#*-3 X#*(-3) £) 
X—1D 01 Belirsiz 
XD > Belirsiz 
X*/D — Belirsiz 

B*-3.0 B*(-3.) veya b 
—3.#B 


3. Bazı aritmetiksel terimler, cebirde olduğu gibi, parantezler ile gruplandırılabilir. 
Ancak sadece '(',')' parantezleri kullanılabilir; £ $ veya (| parantezleri FORTRAN 
90/95'de kullanılmaz, ancak FORTRAN 2003'de farklı amaçlarda kullanılır. 


2.5.1 İŞLEM SIRASI 
Bilgisayarın, aritmetik işlemleri yaparken, izlediği bir dizi kural vardır. Bunlar: 


1. Parantez içindeki işlemlerin hesabı öncelikle yapılır. En içteki paranteze 
alınmış hesaplar önce, dıştakilerin hesabı en son yapılır. 

Üstel ifadeler (**) diğer aritmetik işlemlerden önce hesaplanır. 

Çarpma ve bölme işlemleri eşit önceliğe sahiptir. 


Toplama ve çıkarma (eşit öncelikli) işlemleri yapılır. 


UNU PA VS NN 


Aynı derecede önceliğe sahip aritmetik işlemler (toplama ve çıkarma 


işlemlerinde olduğu gibi), soldan sağa doğru bir sırayı takip ederek hesaplanır. 


Bu örnekleri incelersek A*B*C ifadesinde, önce A*B hesaplanır; sonuç C ile toplanır; diğer 
taraftan sadece A**B**C ifadesinin hesabında 5. kural ihlal edilmektedir: A** (B**c) 
ifadesinin hesabına eşdeğerdir; yani önce B* *C daha sonra A* * (ust ) işlemi yapılır. 


Örneğin, abiz f aritmetik ifadesinde işlem sırası (1) F**2, (2) A*B, (3) C/D, (4) 
(3) *(1),(5) (2) 4(4) şeklinde uygulanır. 
Bazı aritmetik ifadelerin kullanımlarına ilişkin örnekler Tablo 2.I'de verilmiştir. Bunları 


dikkatle inceleyerek FORTRAN'da aritmetik işlemlerin uygulanmasını çok iyi bir şekilde 
kavramanız çok önemlidir. 
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Tablo 2.1: Aritmetik işlemlerin uygulanma şekli ve sıkça yapılan hatalar. 


İşlem Yanlış İfade Doğru İfade 
XY kz) X(Y1Z2) X* (Y*#Z2) 
3x *2y 3#X124Y 3.4X12.4#Y 

2 XAKYA2 X#* (Y42) 

9 X**(1/X) X**(1./Y) 
xy XAY/Z4T X*Y/(2*T) veya 
zi X*Y/2/T 
a A/B*C A/ (B*C) 
be 

(4) -X##Y (<X)##Y 

Iı (1/5) ##X (15/54) *#X 

(0) 

ÜLZAAXK 


x-3.2x109 Xs3.2*10.4**6 X-3.2E1t6 


Aritmetik atama deyimlerini FORTRAN”ın algılamasına bazı örnekler aşağıda verilmiştir: 


b ig 
x-atb/5.-c**dtl*e > Xzd* c“—l-e 

5 

n N 
y--a*b/d-c/d**e/f1g**ht1-j/k > y — : ipe 

d dg k 

b e 
z-atb/ctd-e/f£*h >> z7za*4—*d “ 

c 


Tamsayılar ile yapılan aritmetik işlemlerin sonucu da bir tamsayı ile sonuçlanır. Bu 
noktayı özellikle tamsayılarla bölme işlemlerinde mutlaka hatırlamalısınız; çünkü iki 
tamsayının bölümü bir tamsayı değilse, bölümün ondalık kesri atılarak tam kısımdan oluşan 
bir tamsayıya yuvarlanacaktır. 


4/22, 8/2-4, 3/2-1, 4/3321, 3/4-0 


Bu nedenle tamsayı değişkenler, aritmetik işlemlerde genellikle, sayaç veya indis olarak 
kullanılırlar. 


REAL sayılar ve değişkenler ile yapılan aritmetik işlemlerin sonucu da gerçek sayıdır ve 
tamsayılarda karşılaşılan problem burada oluşmaz. 


4./2.>2. 8./2.-4. 3/5 
4./3.-1.333333 3./4.-0.75 


Fakat burada bir başka, örneğin 1./3.-0.33333333 işleminde karşılaşılan tekrarlanan 
3'ler gibi, problem ortaya çıkar. Diğer bir deyişle, bilgisayar aritmetiğinde elde edilen 
sonuç tam olarak 1 /3'e eşit olmaz; yani 
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3.X(1./3.)-1.# 0.0 


Bu problem genellikle iyi bir programcı için sorun yaratmaz; fakat acemi programcıların 
program yazarken, bu hususu akılda tutması ve programda REAL sayılarla karşılaştırma 
yapmaktan kaçınması tavsiye edilir. 


Bir diğer örnekte: 4*3/2—12/2—6 ve 3/2*4—1*4—4 elde edilir (sayılar tamsayı 
olduğundan dolayı). Sonuç olarak (N*2) /2 ifadesi aritmetiksel olarak (N/2) *2 ifadesi 
ile eşdeğer olmasına rağmen FORTRAN açısından eşdeğer değildir. Bu yüzden buna benzer 
ifadelerle işlem ve program yaparken daha dikkatli olunmalıdır. 


TAMSAYI(lar) ile yapılan aritmetik işlemlerde dikkatli oolunuz! 
Arzuladığınızdan farklı sonuçlar elde edebilirsiniz. 


x“ gibi üs alma işleminde "esas" (x) ve "üst" (a) sayılara dikkat edilmelidir, "esas" sayı 
gerçek ve "üst" tamsayı ise hiç bir problem yoktur. Yanlız esas ve üst negatif gerçek sayı ise, 
bu işlem logaritma bazında hesaplanmaya çalışıldığından (negatif bir sayının logaritmasını 
almaya çalışacaktır) sonuç vermeyecektir. Bu nedenle esas kısmın negatif olmamasına dikkat 
ediniz. Örneğin; 


(—3.) 443 > -27. 
(3x)X4 (3) — —17/ 227. 
(Bu) (34) > sonuçsuz 


1 “üst” gerçek ise “esas” pozitif olmalıdır! Mümkün olduğunca üst 
değerinini TAMSAYI olarak ifade ediniz. 


2.5.2 KARIŞIK MODDA ARİTMETİK İŞLEMLER 


Bir aritmetik ifadede kullanılan değişken ve sabitlerin aynı tipte olmaları veya olmamaları 
sonucu etkileyecektir. INTEGER, REAL ve/veya COMPLEX sayıların karışık olarak 
kullanıldığı işlemler gerekebilir. Bu durumda, C — A40B (burada ©, A ile B arasında dört 
işlemden herhangi birini tanımlıyor) işleminin sonucunu aşağıdaki tablo ile verilen kurallar 
belirler. 

A9B Tamsayı Gerçek (o Karmaşık 

Tamsayı Tamsayı Gerçek Karmaşık 

Gerçek Gerçek Gerçek Karmaşık 

Karmaşık Karmaşık Karmaşık oOKarmaşık 


Bazı FORTRAN derleyicileri karışık modda işlemlere müsaade etmezler. Bu bakımdan bir 
ifadede karışık tipte sabit ve değişkenlerin kullanımından kaçınılmalıdır. 


YANLIŞ DOĞRU 
2X*A13*B 2.XA13.”B 
2. #LAĞ.#J 2*143*J 


B*B-4*A*C B*B-4.*A*C 
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REAL sayının INTEGER kuvvetinin hesabı karışık modda bir işlem olarak sayılmaz. 


KARIŞIK İŞLEM O SONUÇ 


3.*1/4 Bi (1/4—> 0) 
341./4 3.25 (1./4>0.25, 310.25->3.25) 
3/243./2 2.5 (3/2> 1, 3./2>1.5, 111.5-2.5) 


Eğer A-B deyiminde, A'nın tipi B'nin tipinden farklı ise, B'nin sonucu A'nın tipine 
dönüştürülür. Gerçek sayıdan tamsayıya dönüştürmede, ondalık noktasından sonraki kısım 
göz ardı edilir. 

INTEGER :: K 

REAL :: A, B 

A - 1.234 

KZA*Ll 

PRINT*, K 

B-K:*3 

PRINT*, B 


Programında K-2 ve B-5. O değerlerini alırlar. 


Programcılar karışık modda çalışma kolaylığının getirdiği külfetlerin daima farkında 
olmalıdırlar!: her tamsayı bir gerçek sayıya dönüştürülürken makinenin mikro saniye 
mertebesinde olsa bile belirli bir zamanı kullanılır. Böylece milyonlarca işlemin yapıldığı bir 
blokta yer aldığında, karışık modda çalışma, çalıştırma süresini artırır ve programın 
verimliliğini düşürme tehlikesi oluşur. Buna ilaveten, bu şekilde yazılan bir program başka 
derleyicilerde derlenmesinde problemler çıkarması olasılığı nedeniyle, program daha az 
esnek olacaktır. 


nu unutmayınız; bunların kullanımında çok dikkatli olunuz! Gerçek sabit- 
ler, tam değerlerden oluşsa bile, MUTLAKA ondalık noktasını koyunuz. 


NE Aritmetik işlemlerde, gerçek sayının basamak hassasiyetinin sınırlı olduğu- 


2.6 ARİTMETİK ATAMA DEYİMİ 


Bilgisayarın bir aritmetik ifadeyi hesaplayabilmesi için bu ifadede yer alan bütün 
değişkenlere, değişkenler kullanılmadan önce, atama yapılması gerekir. Birçok derleyici 
tanımlanmayan değişken için hata mesajı verir. 


Bir değişkene nasıl atama yapılır? Yani bellekteki değeri nedir? Bu soruların cevabı oldukça 
basittir. Bir değişkenin değeri ya programda A-2 .3 gibi atama yapılarak ya ekrandan ya da 
kütükten okutma işlemiyle tespit edilir. Atama yapılmayan değişkenin değeri sayısal 
değişkenler için sıfır, alfa sayısallar için boş'tur. 


M değişkeninin bellek alanına 18 sayısını yerleştirme işlemi, akım şemalarında veya algoritma 
oluşturma esnasında, sembolik olarak M — 18 ile gösterilir. Bu işleme atama deyimi denir. 
FORTRAN'da <«- işareti, eşitlik (“—”) işareti ile temsil edilir; dolayısıyla, M<-18 atama 
deyimi M-18 olarak yazılır. Böylece M için ayrılmış olan bellek sahası 18 rakamı ile 
doldurulur. Diğer taraftan, bilinen bir x değişkeni için x'in karesinin (47) hesaplayıp, bu 
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değeri Y bellek sahasında depolamak istersek, bu atama işlemi sembolik olarak Y — x ile 
gösterilir ve programda Y—X**2 şeklinde kodlanır. 


Genel olarak bir FORTRAN aritmetik atama deyiminin kullanım şekli 


Değişken ismi-aritmetik ifade 
şeklinde olmalıdır. 


Eşitliğin sol tarafı sadece bir tek değişken içermelidir. Sağ tarafında 


cebirsel ve/veya mantıksal ifadelerden oluşan işlemler yer alabilir. *—' ile 
“-—' sembollerinin işlevlerini karıştırmayınız. 


FORTRAN da atama teriminin “eşitlik” (&) sembolü ile temsil edilmesi; diğer bir deyişle, 
“—” sembolünün eşitliği ifade etmesi bakımından, bir talihsizliktir. Ancak bilgisayar 
programlarının tamamında, eşitlik sembolü tamamen farklı işlevde kullanılmaktadır. Atama 
terimi ile kastedilen, eşitliğin sağ tarafında verilen ifade ile hesaplanan değerin, sol taraftaki 
değişkenin bellek alanına yerleştirilmesi veya kopyalanmasından ibarettir. İleride değinileceği 
üzere, '-—? sembolü mantıksal önermelerde eşitlik anlamında kullanılır. 


Unutulmaması gereken nokta kısaca (17) eşit sembolünün sağındaki aritmetik işlemler 
yapılır (2) bulunan değer eşitliğin sol tarafındaki değişkenin bellek alanına yazılır. 


2.7 BELLEK ALANININ KULLANIMI 


Programda kullanılan her değişken için bir bellek alanı tahsis edildiğinden bahsetmiştik. 
İndisli değişkenlerde ise bellek alanı alt ve üst indisler ile belirlenir. Bu bellek alanlarını 
sonsuz uzunlukta bir film şeridine benzetirsek, her şeride sadece bir sabit veya değişkenin 
(sayısal, mantıksal, karmaşık veya alfa sayısal) değerinin yazılabilir. Program değişken- 
lerinin tipleri atandıktan sonra aldıkları başlangıç değerleri “sıfır” veya “boş” tur. Program 
içinde yapılan atamalar ile bu değerler güncellenir. 


Bir bellek alanında sadece bir değer yazılabilir.. Bu bellek alanına yeni bir atama 
yapıldığında eski değer silinir; yerine yenisi yazılır. Eski ve yeni değerleri aynı anda bellekte 
tutmaz. Örneğin, 


Satır No 
1. REAL :: A, B, C 
N B-A**244. 
3. CZAHB 
4. C—SORT (C) 
5. PRINT*, A,B,C 


olarak verilen programda kullanılan değişkenler A, B, cC dir. Dolayısıyla programın başında 
bellekteki değerleri (yani 1. satırdan önce), bu değişkenlere başlangıç değerleri atanma- 
dığı için, O. O dır. İkinci satırda A —0.0 olduğundan B —4.0 elde edilir. Bu andan itiba- 
ren bellekteki alan değerlerinden sadece B'nin değeri değişmiştir, üçüncü satıra gelindiğinde 
halen A'nın değeri sıfır olduğundan C — 0.04(4.0) ifadesinden C —4.0 elde edilir; yani 
artık C'nin bellek değeri de 4.0 olmuştur. Dördüncü satıra geldiğimizde eşitliğin sağ tarafı 
C'nin bellek değerini kullanırken, sağ tarafta hesaplanan değer C'nin yeni bellek değerini 
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oluşturmaktadır. Bu bilgilerin ışığı altında C — v4 -2 elde edilir ki C'nin yeni bellek değeri 
artık 2.0 dir. 


2.8 GİRDİ/ÇIKTI LİSTESİ 


Bir FORTRAN programda READ*, ve PRINT*, deyimleri sırasıyla ekrandan veri okuma ve 
çıktıyı ekrana yazdırma amaçları için kullanılır. Kısa ve basit programlar yazmaya 
başlayabilmek için, kısaca bu deyimlerin kullanımlarına değinelim. PRINT*, deyimi genel 
olarak 


PRINT*, <değişken listesi, aritmetik ifade veya 
alfa sayısallar> 


şeklinde kullanılır. Yukarıdaki şekilde kullanılan yazdırma deyimi ile konsola (yani ekrana) 
yazdırma işlemi yapılır. Burada * serbest formatı temsil eden bir karakterdir. Değişken 
listesindeki her bir değişken virgül ile ayrılır. 


PRINT*, A, B, C 


deyimi A, B ve C gerçek değişkenlerinin değerini ekrana yazar. Formatlı çıktı yazdırma 
deyimlerine ileride değinilmektedir. 


PRINT*, 'X—',X, ' Y—',Y 


deyimi de 'X—' ve ' Y—' ile verilen aslında alfa sayısal sabitleri X ve Y'nin değeriyle 
beraber, deyimde kullanılan sırayla ekrana yazılmasını sağlar. Örneğin X-3 ve Y-2 
olsun. Bu durumda çıktı 


X-3.000000 Y-2.000000 


şeklinde görülür. 


PRINT*, deyiminde (ve bunun gibi diğer çıktı deyimlerinde) aritmetik ifadelere de 
müsaade edilir; örneğin 


PRINT*, A, B, AtB 
deyiminde A ve B'nin değerlerinin yanında bunların toplamının ekrana yazılması sağlanır. 


READ*, deyimi ile ekrandan girilmesi arzulanan değişken listesi eşlik eder. 


READ*, < değişken listesi > 


Bu listeye karşılık girilen değerler, değişkenlerin tip tanımlarına (REAL, INTEGER vs) uygun 
olmalıdır. Aynı PRINT*, deyiminde olduğu gibi her bir değişken virgül ile birbirinden 
ayrılmalıdır. Örneğin, 
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REAL 3r A, X2, Z 
INTEGER :: Ki, J48 
READ*, A, X2, Ki, 2, J48 


deyimine girilen 


DB Tela; 718; 0.45, 6.17 
değerleri 


A-2.35 X2-7.12 KI-718 Z2-0.45 J48-6 


atamasına eşdeğerdir; örneğin J48 bir tamsayı olarak tanımlandığından bellekte sayısal 
değerin sadece tam kısmı tutulur. 


Çok sayıda değerin girilmesi gereken durumlarda ekrana hangi değerin girilmesi istendiğini 
belirten bir mesaj yazılması, programa yanlış veri teminini önler. Örneğin, 


PRINT*, ' İkinci dereceden denklemin katsayılarını' 
PRINTI*, ' a, b ve c sırasıyla giriniz ' 
READ*, A, B, C 


deyimleri ile kullanıcıya hangi verilerin, hangi sırayla girilmesi gerektiğini bildirir. 


y Ekrandan veri girişlerinde, kullanıcıya hangi verilerin hangi sırayla 
girilmesi gerektiğini PRINT*, deyimi ile bildiriniz. 


2.9 IMPLICIT/IMPLICIT NONE DEYİMİ 


Bu deyim, bir program içindeki değişkenlerin tiplerini değişken isim bazında değil de, 
değişken isminin ilk harfi bazında tanımlanmasında kullanılır. IMPLICIT deyimi ana veya 
alt programın (FUNCTION veya SUBROUTINE deyiminden sonra) ilk deyimi olmalıdır. 
Örneğin, IMPLICIT INTEGER(A-Z) deyiminde, alfabenin tüm harfleri ile başlayan 
değişkenlerin INTEGER tipinde olduğunu bildirir. IMPLICIT REAL(A-H,0-Z) deyimi 
ise başlangıç harfi A ile H ve arası O ile Z ve arasındaki harfler ile başlayan değişkenlerin 
REAL olduğunu bildirmektedir. Tip bildirimi yapılmayan harfler (yani I, J, K, L, M ve 
N), FORTRAN'ın otomatik bildiriminden dolayı INTEGER olarak kalırlar. Örneğin, 


IMPLICIT INTEGER(A,C,H-K) ! A,C,H-K arası ile başlayan değişkenler “tamsayı” 


IMPLICIT REAL(P,R, S-W, 2) ! P.R,Z, S-W arası ile başlayan değişkenler “gerçek” 
IMPLICIT COMPLEX(A-C,2) ! Z ve A-C arası ile başlayan değişkenler “karmaşık” 
IMPLICIT INTEGER (D—R) ! DileR arası ile başlayan değişkenler “tamsayı” 
IMPLICIT LOGICAL(V,W) ! V.W ile başlayan değişkenler “mantıksal” 
IMPLICIT REAL*8(A-D,O-W) ! AileDveOile W arası ile başlayan değişkenler 


“çift hassasiyetli” sayı 
IMPLICIT COMPLEX*16(E-J,Z)! EilejJarası ve Z ile başlayan değişkenler “çift 
! hassasiyetli karmaşık” sayı 
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FORTRAN dilinin otomatik değişken tip tanımlama (default) kuralı 


IMPLICIT REAL(A-H,0O-Z) ! A-H ve O-Z arası ile başlayan değişkenler 
“gerçek”, I—N ile başlayan değişkenler “tamsayı” 


şeklindedir. Otomatik tip belirleme kuralını kapatmak için IMPLICIT NONE deyimi 
kullanılır. Böylece derleyici tip tanımlama satırında belirtilmeyen değişkenlerin tümü için 
“değişken tanımlanmamış” hata mesajı verir. 


a Programda kullandığınız tüm değişkenleri “tanımlama” satır(lar)ında 
) m belirtiniz ve IMPLICIT NONE deyimini kullanınız ki derleyici eksik 


tanımlamaları ve yazım hatalarını bulap size bildirsin. 


2.10 PARAMETER NİTELİĞİ 


Program tanımlama kısmında kullanılan bir sabite isim verme olanağı sağlayan bir bildiri 
deyimidir. Genel kullanım şekli, 


<Tip>, PARAMETER :: p ismil - pl, p ismi2 - p2, 


Bu şekilde tanımlanan isme parametre veya bir sabitin sembolik ismi denir. Sembolik isim 
tanımlandıktan sonra, programdaki bir ifadede sabit olarak kullanılır; yani bu isimin bellek 
değeri program boyunca değiştirilmez! PARAMETER deyimi içinde aritmetik deyim yer ala- 
bilir; ancak kütüphane fonksiyonları kullanılamaz. 


Bir PARAMETER deyimindeki bir sembolik isim sadece o programdaki sabiti tanımlar. 
Sembolik sabitin tipi sembolik ismin tipine bağlıdır. Eğer sembolik isim bir CHARACTER 
sabitini belirtiyorsa, sabit tek veya çift tırnak işaretleri arasında soldan hizalanarak yazılmalı, 
tanımlanan uzunlukta olması için gerektiğinde boşluklar kullanılmalıdır. 


Örnekler: 
REAL, PAREMETER :: 1-1 
COMPLEX, PARAMETER :: C-1I41 
PRINT*, Ii, — 
programının çıktısı 
1.0000000 (2.000000, 0.000000) 
şeklindedir. 
CHARACTER (LEN-8) , PARAMETER :: U-'1 2345 6',K-'1 234 
PRINT*, U 
PRINT*, K 
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programının çıktısı 


1 2345 6 
1 234 


olur; çünkü U aynı K 8 karakter uzunlukta tanımlanmıştır. 


PARAMETER ile tanımlanan sabitler, tip tanımlama kısmında, aşağıdaki örnekte olduğu 
gibi, değişken gibi kullanılmasına olanak sağlar. 


INTEGER, PARAMETER :: N-12, M-2*N 
CHARACTER (LEN<N) :: AD 
CHARACTER(LEN-M) :: SOYAD 
örneğinde AD 12, SOYAD 24 karakter uzunluğunda tanımlanmaktadır. 


Hem tanımlama hem de sabit atama bir arada yapılabilir. 


INTEGER, PARAMETER :: N-15, MAX sayi-9999 


REAL, PARAMETER :: epsilonzl1.0e-6 

LOGICAL, PARAMETER :: TUSz.FALSE. 

CHARACTER(LEN-5), PARAMETER :: cevap-'HAYIR' 
ALIŞTIRMALAR 


2.1 Bilgisayarınızın sayısal değerlerinin sınırı nedir? ira) ifadesi ile 
WAY A ifadesini bilgisayarda hesaplayarak sonuçları karşılaştırınız ve 
yorumlayınız. 


22 X-1./3.11./3.11./3. ileY-1./4.41./4.11./4.11./4. ifade- 
lerini hesaplayan bir program yazınız ve sonuçların nedenlerini açıklayınız. 


2.3 Aşağıdaki atama ifadelerindeki hataları bulunuz. 
a) 2X-A b) X134Y-72 c) A22-2.35FH-2 
d) Y-1.403E-3.5*X e) Dz1 f) Ab-Y***X 


2.4 Aşağıdakilerden hangileri geçerli değişken isimleridir. 


Al 1A HOXYŞ BİR 
X21Y9 3A000bx asdB6 X—19 
BC45 AB 12 235X ALFA 
B23.4 Bir:2 KEDİ mil 
KiLOMeTRe J99X XKIJ 3AMN 
N$Ş12 kilometre Kedi na 34 
yzk kisiğ$adi 


2.5 Aşağıdakilerden hangisi geçerli aritmetik deyimlerdir. 


BÖLÜM 2. FORTRAN 90/95 DİLİNİN ESASLARI 31 


(a) XzA*c2 (b) VOLTZAKIM*DIRENC 
(cCc) ABCDEFGH-A-B (d) UYVZUV 

(e) 123-JKL (f£) kdvzx0.15*fiyat 
(g) yogzxm/V (h) NNkk> *Nk2 

(1) guzCcc*3.14159 (i) Isg-K** I 

(j3) —AB-3.0 (k) X2x41x*X 


2.6 Aşağıdaki FORTRAN deyimlerinde aritmetik işlem sırasını göz önünde bulundurarak 
sonucu bulunuz. (a-3. b-2. c-5. d-4. e-10. f£-2. g-3.) 


(a) cikti-a*btc*dte/f**g 

(b) ciktiza* (btc) *dt(e/f) **g 
(c) ciktiza*(btc) *(dte) /f£**g 
(d) ciktiz(atb) *f£**2/(ctd) /g**3 
(e) ciktiz(a*btc*d) /f**g 

(£) cikti-a**(b**c) 

(h) cikti-(a**b) **c 

(h) cikti-a**b**c 


2.7 Aşağıdaki aritmetik ifadeleri FORTRAN dilinde kodlayınız. 


m—l 2 2 
(a) a lm (b) öel0tf EZ) 7410 ab 
(0-0 4(r40) bc b” *c 
1(m43 Nk— 
o) pig (n453) © (a 43)pk 14(k-2) 
esip) di(b—ay"” 
çe Ci #2) eyv) gg (30 
ar Y0) İz 0x2) 2Me-2)4 
İ sai 4x 
U — gina) vi yin 2 2 231/m mM Z—14 
(g) yin *y) (a) OLDE 


5/4 pr 
W/(n-n) Ç 2) 1 7 DI 
(0 (a/b)"(c—-d)” : z yoz 
d Mb—ay" 


tan | xsin | x 


k) 
( cosh | x—sinh | x 


2.8 Aşağıda verilen aritmetik ifadelerin formül hallerini çıkarınız. 


(a) X2Y*(2-D/E/2.) 
(b) Y>X**315.4X*4*216.0 
(c) X-YIWN/2*5. 
(d) P>P#R*P*T-1.25/P**3 
(e) D>DLI4A*Z**3/3. 

) 


K-3/ (1/J-M) *L-NM-19 
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K—SORT (SORT (X**24YX42) 4B*COS (A*X) ) /SORT(X4#X*24Y4X2) 
2-((2.X*A*B/(C11.))—(R/(7.*(Pt0)))) **(1./N) 
HR*A*(1.4R) **N/((1.4R) **N-1.0) 


(g) IzJ** (K-2) **L/7 
(h) Xe(1.—X*X)/(YAY-—X*X) 
(1) 2-2.*A13.*B/C#*2-—(1.1R) **N/M 
(i) H2(1.1P)**3*(1.-0)**.5/S*T/R 
(5) H22.*V4##2*SIN(T) *COS(T—A) / (G*COS(T) **2) 
(k) Z21./(S*SORT(2.4*P)) *EXP(-0.54((X-—A) **2/S**2)) 
(1) Z-(6.8X(A1B) **2/C-7.123*A/(B1C) **.5)/(AtC) **(1./N) 
(m) H2(2.*A*B/(C11.0)-1/(3.*(Pt0)))**(1./3.) 
(n) HA(AtB*COS (X) ) /SIN(X*# (AtB*SIN(X))) 
) 
) 
) 


29 Aşağıdaki ifadelerde varsa hatalı olanlarını, hata nedenleri ile beraber tespit ediniz. 


(a) Xs4,562.23 (b) Uz1.7687E-2.3 (c) 1253 

(d) B-2.e3 (e) 5AB-7.94 (£) KI-2./5. 

(h) Z-1511. (i) ML-17 (3) IZ1.4R**N 
(Kk) XEX#AN (1) C>X*4#-2. (m) E-(-4.) *4.5 
(n) C3-NM (ej. ESLA5,./5. 15.75. (p) RZA*B/C*D/E 
(g) 2-241./2 (1) W5(-2.4)*44(-1.1) (Ss) U-(1/(X-1/X)) 


2.10 Aşağıdaki programlarda derleme hatalarını bulunuz. 


(a) CHARACTER :: IKI*2, BIR*I, SIFIR*O 
1K1-'2' 
BIR-'I' 
SIFIR-' ' 


(b)  N-5 
L-4 
CHARACTER :: A*N, B*L 


(c) INTEGER :: X 
X-75 
REAL a 
Y-44. 


(d) INTEGER:: A; REAL:: Y,U,K; CHARACTER(LEN-3):: D,C 


(e) INTEGER :: Y 
REAL :: X 
INT EGER:: A 
Y-3.25 
X-15 
A-7 


2.11 Kütlesi 900 kg olan bir otomobil, 50, 80 ve 120 km/h sabit hızlarında hareket ettiğinde, 
otomobilin kinetik enerjisini kilo Joule birimi cinsinden hesaplayan bir program yazınız. 


2.12 Bir dikdörtgensel kutunun ebadı 5 cm X 10.5 cm X 6.65 cm olarak veriliyor. Bu kutunun 
(a) hacmini (b) toplam yüzey alanını hesaplayan bir program yazınız. 
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2.13 


2.14 


2.15 


2.16 


2.17 


2.18 


Kartezyen koordinat sisteminde seçilen #(X,, yı.2,) ve P(X, y>.7>) gibi iki noktanın 


bir birine olan uzaklığı, d, hesaplayan bir program yazınız. İki nokta arasındaki uzaklık 
aşağıdaki bağıntı ile verilmektedir: 


d— Gy —x,)” va - yy) *(zı 2) 


Bir cismin doğrusal genleşme katsayısı, birim sıcaklık değişimiyle cismin uzunluğunda 
meydana gelen değişim olarak tanımlanıyor. Bir çelik çubuk için yapılan ölçümler şöyle 
verilmektedir: 409C*de uzunluk 120 cm iken sıcaklık 8549*C'a çıkarıldığında 121.38 cm 
olarak saptanıyor. Çeliğin doğrusal genleşme katsayısını hesaplayan bir program 
yazınız. 


Bir market sipariş verdiği 418 tür ürünü | ile 418 arasında kodlar (Urun Kodu) vererek 
tanımlıyor. Yazacağınız bilgisayar programı sırasıyla ürünün kodunu, kaç adet satın 
alınacağı (Miktar) ve birim fiyatını (Birim Fiyat) okuyan ve sipariş verilen 
ürünlerin bedelini (Bedel) hesaplayan bir program yazın. Programda kullanacağınız 
değişken isimleri parantez içinde belirtilmiştir. 


T —2nr — (ue zin? 7 
g 4 2 


formülü ile veriliyor. Burada g-980 cm/s?, L ise sarkacın uzunluğu (cm) ve & yer 
değiştirme açısıdır. Girilen herhangi bir yer değiştirme açısı ve sarkaç uzunluğu için 
periyodu hesaplayan bir program yazınız. 


Bir sarkacın periyodu 


Bir dikdörtgenin köşegenine göre atalet momenti 6(a? * b?) olarak veriliyor. Burada a ve 
b dikdörtgenin kenarları olduğuna göre, ebadı 4 cm Xx 7 cm olan bir dikdörtgenin 
köşegenine göre atalet momentini hesaplayan bir FORTRAN programı yazınız. 


Fizik derslerinin başında bahsedilen standard problemlerden biri de yayın ucuna 
yerleştirilen bir cismin basit harmonik hareketinin enerji hesabını içerir. Enerji terimleri 
kinetik, potansiyel ve toplam enerjidir. Kullanılan formüller, türetilmesini kapsayan 
detaylara girmeden, aşağıda verilmektedir. Bu hareket için bir FORTRAN programı 
yazınız. 

4n”M | 


K-— TE-—KA? PE-İkx? KE-TE—PE 
P 2 2 


Burada K yay sabitini (kg/s2), TE toplam enerjiyi (J), PE potansiyel enerjiyi (J), KE 
kinetik enerjiyi J), A hareketin genliğini (m), X göz önüne alınan yer değiştirme 
miktarını (m), M cismin kütlesini (kg) ve 7 hareketin periyodunu (s) temsil etmektedir. 
Hareketin periyodu 0.5s, genliği 0.4m, kütlesi 6 kg ve yer değiştirmesi 20 cm olan 
durum için yay sabitini, PE, KE ve TE'yi hesaplatınız. 


2.19 Aşağıdaki programlar çalıştırıldığında, sabit ve değişkenlerin bellek değerleri ne 


olur? 
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(a) PROGRAM a 
IMPLICIT NONE 
REAL :: A, B, C, D, E 
A-2.34 
B-4.32 
C-B; D-A; E-C 
C-5.25 
END PROGRAM a 


(b) PROGRAM b 
IMPLICIT NONE 
INTEGER :: Uv, M2, I, Ki, N2, M-9 
J-M-1 
M2-2 
I—J 
KU-M241 
M-N2 
END PROGRAM b 


(c) PROGRAM c 
IMPLICIT NONE 
REAL :: P-1.0, X, Y 
INTEGER :: K, M, J 
K-K#1 
M—K 
X-1.013.0#P 
JZM*13 
Y-P*X 
END PROGRAM c 


2.20 Aşağıdaki programların çıktılarını bulunuz. 


(a) PROGRAM Soru a 
IMPLICIT NONE 
INTEGER :: 122, J-5, K, L 
K21I1J 
L>K*I 
IZL*1 
L2K/I 
PRINT*, I, İ, K, L 


END PROGRAM Soru a 


(b) PROGRAM Soru b 
IMPLICIT NONE 
REAL :: R-0.5, P:1500., T, X 
INTEGER :: M5 
T-1.4R/10. 
T—T**M 
X—P*R/T 
PRINT*, P, R, M, X 
END PROGRAM Soru b 
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(c) 


(d) 


PROGRAM Soru c 
IMPLICIT NONE 


INTEGER :: 1-2, J-3, K-4, M, N, NN, MM 


L-I**J 

M-1** (-j) 

N-(J**1I) **K 

NN-J**(I1I*K) 
MM-J**(I**K) 

PRINT*, L, M, N, NN, MM 
END PROGRAM Soru c 


PROGRAM Soru4 
IMPLICIT NONE 


REAL :: UZ1.5, X, Y 
INTEGER :: Ms5 
X-U#(-U) **(1./M) 
YEM*X 


END PROGRAM Soru4 
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TEMEL PROGRAMLAMA 
TEKNİKLERİ 


Programlama ve programlama tekniklerinden bahsetmeden önce "Neden program hazırlama 
gereği duymaktayız ?" sorusunu soralım ve bu sorunun cevabını vermeye çalışalım. Öncelikle 
bilgisayarlar aritmetiksel işlemleri yaparken çok hızlı çalışırlar. Bir çarpma işlemi yaklaşık 
olarak |, üst alma işlemi yaklaşık 20 mikro saniyelik mertebelerde yapılır. Her gün yeni 
gelişen bilgisayarlarla bu süre daha da kısalmaktadır. İnsan beyni aritmetik işlemleri bu kadar 
hızlı yapamaz. Ayrıca milyonlarca kişinin ismini içeren bir dosyadan belirli bir ismin 
bulunması gibi bir işlemi de insandan daha hızlı yapabilmektedir. İnsan gücü ve kapasitesi bu 
problemleri çözmesi için yeterli olmasına rağmen çözüm süresiyle sınırlıdır. İnsanların 
haftalar süren çalışması sonucu çözdüğü problemi bir bilgisayar bir kaç dakika ile bir kaç saat 
arasında bir sürede çözebilmektedir. 


Bilimsel ve mühendislik problemlerinin çözümünde binlerce, hatta milyonlarca, aritmetik 
işlemin yapılması olağandır. Bir optimum çözüm bulmak için problemi defalarca elle 
çözmenin çok vakit alacağı, ve hatta işlem hatası olasılığının mevcudiyeti, çok aşikar bir 
gerçektir. Bazı problemleri elle çözmek mümkün bile değildir. Bu nedenle program yazmak 
ihtiyacı duyulur ve işlemler bilgisayarla yaptırılır. 


Bir bilimsel ve/veya mühendislik probleminin bilgisayar kullanarak çözümünde izlenmesi 
gereken belirli aşamalar vardır. Bunlar sırasıyla: 


1. Modelleme: Fiziksel sistemi, bir ideal matematiksel modele çevirmek ve bu modele 
göre gerekli matematiksel denklemleri formüle etmek, 


2. Sayısal Yöntem Seçme: Bilgisayarla programlamaya uygun bir nümerik yöntem 
seçmek (türev, interpolasyon, integral, denklem çözümünü bilgisayar programlama ile 
gerçekleştirmek için kullanılan yöntemler analitik yöntemlerden farklılık gösterir), 


3. Algoritma Oluşturma: Yeni bir çözüm tekniği ortaya konuyorsa, bu tekniğin 
adımlarını veya aşamalarını belirtmek; (her aşamada yapılacak işlerin sıralı olarak 
belirtildiği düzene algoritma veya program dizaynı denir), 


4. Akış Şeması Oluşturma: Detaylı bir akış şeması oluşturmak (yani Oku, Yaz, Kıyasla, 
Hesapla gibi işlemlerin sırasını belirleyen bir grafiksel gösterim şeklidir); akış şeması 
genellikle algoritma esas alınarak hazırlanır, 


5. Programlama Dilinde Kodlama: Akış semasındaki işlemlere göre makinenin 
anlayacağı ve kabul edeceği bir dilde bu işlemleri yazmak veya diğer bir deyişle 
kodlamak (BASIC, PASCAL, FORTRAN, C gibi dillerle), 


6. Programı Test Etme: Programın doğruluğunu test etmek amacıyla çalıştırmak; 
arzulanan sonucu vermiyorsa, programı kontrol etmek, hata(ları) bulup düzeltmek. 


Bu aşamalar takip edildikten sonra, istenilen işlemleri yerine getirecek program hazırdır. 
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3.1 ALGORİTMA VE AKIŞ ŞEMASI 


Akış şeması, verilen bir problemin çözümü için izlenmesi gereken yolun şekillerle gösterildiği 
bir şemadır. Çözülecek problemin matematiksel ve mantıksal işlemlerinin genel bir resmini 
sunar; çok uzun ve karmaşık problemlerin çözümünde algoritma hazırlamak kaçınılmazdır. 
Algoritma hazırlamak, hatası az olan program yazımına son derece önemli katkıda bulunur; 
iyi hazırlanmış bir algoritma, bazen akış şeması gerektirmeyebilir. 


Bir problem için nasıl algoritma oluşturulur? Örneğin, bir arabanın çalıştırılması için bir 
algoritmanın nasıl hazırlanacağını inceleyelim. 


. Arabaya girip koltuğa otur. 
. Vitesi boşa al. 
. Viteste iken ayağınız debriyajda mı? Hayır ise (2.)'ye git. 


. Kontak anahtarını yuvasına koyduktan sonra çevirerek arabayı çalıştır 


. Debriyaja basarak vitesi 1. konumuna al. 
. Hafif hafif gaz verirken ayağı debriyajdan çek. 


1 
2 
3 
4 
5. Gaz pedalına bas (gaz ver). 
6 
7 
8. Bir kaç araba boyu ilerledikten sonra debriyaja basarak vites yükselt. 
9 


. Gaz vererek hızını arttır. 
10. Motorun devri artmış ise, debriyaja bas vites yükselt. (9.)'ye git. 
11. Motorun devri düşmüş ise, debriyaja bas vites küçült. 
12. Hızlanmak için gaz ver, yavaşlamak için hafif fren yap. 
13. Durmak için debriyaj ve fren pedallarına beraber basarak durdur. 
14. El frenini çek ve kontağı kapat. 


Buradaki işlem sırasını takip etmek zorundayız; bunu yapmadığımız takdirde arabamız 
çalışmayacak ya da tuhaf bir şekilde davranacak ve arabamıza hasar verebileceğiz. Şimdi de, 
bir bilgisayarın arabayı çalıştırmasını ve bunun için bilgisayarı programlamak istersek, 
algoritmamız bu kadar basit olmayacaktır; çünkü bir insanın araba kullanırken karşısına 
çıkacak her türlü olasılığı, bilgisayara program ile bildirmek gerekecektir. Örneğin, hava 
yağışlı ise sileceklerin, sıcak ise klimanın, soğuk ise ısıtıcının çalıştırılması; yol buzlu ise 
fazla hız yapılmaması, sağa ve sola dönüşlerde sinyal verilmesi, gece kullanımında farların 
yakılması gibi daha binlerce olasılığı düşünmek ve programlamak gerekir. Bu programın girdi 
verilerini görüş açısı, yakıt ve hız göstergeleri, sinyal göstergesi v.s oluşturmakta iken, 
program çıktısı arabanın hareketi, davranışı ve göstergelerdeki değişimlerdir. 


Araba kullanma olayını bir robota yaptırmaya kalkacak olursak, robota hükmedecek program 
çok daha karmaşık olacaktır. Robotun dikiz aynalarına bakması, görüntüyü algılaması ve 
yorumlaması, direksiyonu kavraması, ayağının pedallara basma hızı v.b daha nice 
olasılıklarını programcı göz önüne almak zorundadır. 


Kısacası bir program yazmadan önce amacımıza ulaşmak, karşımıza çıkacak her türlü soruyu 
çözmek için bilgisayara önceden direktif vermeliyiz; aksi takdirde program bu durumlarda ne 
yapacağını bilemez. Unutmayınız, bilgisayarlar sizin ne düşündüğünüzü, ne yapmak 
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istediğinizi bilmezler; onlar sadece programlanan koşullara ve olasılıklara tepki verirler; 
dolayısıyla, bilgisayar ancak programı hazırlayanlar kadar zekidir. 


3.2 AKIŞ ŞEMASI 


Akış şeması, bir program hazırlanırken programcıya ya da programı inceleyene kolaylık 
sağlayan bir grafiksel gösterim yoludur. Programcılar akış şemasına bakarak istenilen 
herhangi bir programlama dilini kullanarak programlama yapabilirler. Diğer bir deyişle, akış 
şeması programlama dilleri söz konusu olduğunda geneldir. 


Akış şemasında kullanılan geometrik şekiller aşağıda verilmiştir. 


C) Başlama ve bitiş durumlarını gösterir, içine BAŞLA veya DUR 
yazılarak kullanılır. 


Giriş-Çıkış işlemlerinde kullanılır; OKU < değişken listesi>, ve YAZ 
<değişken listesi> şeklinde kullanılır. 


——> Akışyönünü gösterir. 


İşlem ünitesidir. Aritmetik işlemler için kullanılır 


> Karar aşamasını belirtir 


O Akış şeması bir sayfaya sığmadığında veya bir altprograma atıfta 
bulunulduğunda içine bir numara veya harf konularak kullanılır. 


Kapalı döngü (DO-END DO) belirtir. 


Akış şemalarında karşılaşılan durumlara şu örnekler verilebilir. 
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(i) Sıralı Akış: Bir birini takip eden birden fazla aritmetik işlem aşamalarının olması 
durumudur. 


Çi) Şartlı Akış: Bir şartlı bileşeni içermesi durumudur 


(Bir giriş) 


| 


(Bir Çıkış) 


(iü) Tekrarlı Akış: Bir işlemin veya işlemler dizisinin belirli sayıda işlem görmesi 


(Bir giriş) 


Yanlış 


(Çıkış'a) | İşlemler | 
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ÖRNEK |: Bir ürünün toptancı fiyatı (Fiyat) ise, aracı kişi bunu satın alınca © 15 KDV 
ödemekte, kendisi de “o 25 kar payını da koyduktan sonra KDV'siyle beraber tüketiciye 
satmaktadır. Bu durum için bir algoritma aşağıdaki şekilde hazırlanabilir. 

1. Malın toptancı fiyatını (Fiyat) gir. 

2. Aracının satın alma fiyatını (Satin Alma) hesapla. 

3. Aracı kârıyla beraber fiyatı (Karli Fiyat) hesapla. 

4. Tüketiciye ulaşan fiyatı (Tuketici F) hesapla. 

5. Çıktıyı, Tuketici F, ekrana yaz. 


6. Dur. 


BAŞLA 
,OKU Fiyat/ 


Satin Alma —-1.15*Fiyat 
Karli Fiyat —1.25*Satin Alma 


Tuketici F —1.15*Karli Fiyat 


| YAZ Tuketici F | 


| 
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ÖRNEK 2: 


Şartlı akış durumuna bir örnek olarak pozitif ve negatif sayıların tespitini ele 
alalım. 


1. Ekrandan bir sayı (P) oku. 

2. Eğer sayı pozitif ise (5.) aşamaya (P>0) git (negatif ise devam) 
3. Ekrana"Sayı negatiftir" yaz. 

4. (6.cı) aşamaya git 

5. Ekrana"Sayı pozitiftir" yaz. 


6. Dur. 


BAŞLA 


Hayır Evet 


/ YAZ " Sayı Negatif " / / YAZ " Sayı Pozitif " / 
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ÖRNEK 3: Tekrarlı akış durumuna bir örnek olarak, programa dışarıdan girilecek 10 sayının 
toplamım ele alalım: 


1. Sayaç (N) ve toplamı (Toplam) BAŞLA 
sıfırla (N—0O ve Toplam<—0). 
N <0, Toplam -0 


2. Sayacın değerini bir artır. 

3. X değerini oku. 

4. X değerini toplama kat. Toplam-ToplamtX 
5. Eğer N, 10'dan küçük ise (2.) aşamaya git. 


6. T değerini ekrana yaz. 


7. Dur. 
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3.3 KARAR VERME YAPISI 


Aritmetik işlemlerin yanısıra ALU (Arithmetic-Logic Unit-Aritmetik Mantık Birimi) da iki 
unsuru kıyaslamak ve kıyasa dayanan komutları yürütmek için tasarlanmıştır. Bu 
kıyaslamalardan en basiti, iki unsurun aynı olup olmamasını içerir. Bu kıyaslamanın 
FORTRAN'da kolaylıkla yapılabilmesi için mantıksal ifadelere yer verilmektedir. Mantıksal 
ifadeler, mantıksal IF testlerinde ve mantıksal blok IF yapılarında kullanılır. Mantıksal IF 
testi, mantıksal blok IF testinin kısa bir şeklidir. 


3.3.1 MANTIKSAL İFADELER 
IF deyiminin kullanımı tabi ki mantıksal ifadenin tanımına bağlıdır. Bir mantıksal ifade bir 


veya daha fazla ilişkisel ifadenin kullanımını içerebilir. Bu ifadeler birbirlerine bir "ilişkisel 
mantık operatörler" ile bağlanırlar. Bunlar: 


Operasyon Anlamı 
Yeni Eski 
>——- .EO. Eşit 
/ .NE. Eşit değil 
> .GT. Büyük 
>— .GE. Büyük eşit 
< .LT. Küçük 
<— .LE. Küçükeşit 


Örneğin, 25.LT.98 (25<98) ifadesinin değeri TRUE dur. Diğer taraftan, program içinde 
kullanıma örnek olarak 


Bazı ilişkisel işlemler ve sonuçları aşağıda verilmiştir: 


Işlem Sonuç 

3 < 4 . TRUE. 
3 <z 4 . TRUE. 
3-— .FALSE. 
3 > 4 .FALSE. 
4 <z 4 . TRUE. 
'A'<'B" .TRUE. 


Örneğin X değişkeninin değeri 2. ise X<5.0 mantıksal ifadesinin (önermesinin) sonucu 
TRUE'dur. Bu tür mantıksal önermelerde aritmetiksel işlemler mevcut ise mantıksal 
işlemlerden aritmetik işlemler yapılır, daha sonra önermenin doğru veya yanlış olduğuna 
bakılır. Örneğin, (X<2.5*SORT(10.)) ifadesinde önce 2.510 hesaplanır ve X ile 
kıyaslanır; bu önermenin değeri TRUE bulunur. 


Önermelerde fazla sayıda parantezlerin kullanımı, (ABS (X-3.)<(10.—SORT(5.) ) gibi, 
ifadeye açıklık kazandırmak bakımından ilave edilebilir. 
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y Mantıksal önermelerde önce “aritmetik işlemler” yapılır, sonra mantıksal 
aritmetiğe geçilir. 


Birleştirici mantıksal operatörlerin kullanımıyla daha karmaşık mantıksal ifadeler 
oluşturulabilir. 


Tablo 3.1 Birleştirici mantıksal bağlaçların işlevleri ve tanımları. 


OPERATÖR FONKSİYONU TANIMI 

(,.AND./, Mantıksal AND /, ve L,'nin her ikisi de .TRUE. ise 
(VE bağlacı) önerme sonucu . TRUE .'dur. 

/,.OR./, Mantıksal OR /, veya /,'denenazbiri .TRUE. ise 
(VEYA bağlacı) önerme sonucu . TRUE . 'dur. 

/(,.EÇV./, Mantıksal EOÇV—denklik o /, ve /, 'nin her ikisi de aynı değeri 
(DENK bağlacı) alıyorsa (örneğin, /, -.FALSE. ve 

(j5 .FALSE.) önerme .TRUE.'dur. 

/, .NEOV. /) Mantıksal NEÇV /, ve /,'den birisi .TRUE. ve diğerisi 
(DENK DEĞİL bağlacı) (o de .FALSE. ise önerme .TRUE.'dur. 

.NOT. /, Mantıksal NOT /, .TRUE. isedeğerini .FALSE. ya 
(DEĞİL bağlacı) da .FALSE.ise .TRUE. yapar. 


Tablo 3.2 Birleştirici mantıksal bağlaçların kullanımını veren tablo. 


b, b /i,.AND./, /,.OR./, /,.EOV./, /,.NEOV./, 
.FALSE. .FALSE. .FALSE. .FALSE. .TRUE. .FALSE. 
.FALSE. .TRUE. .FALSE. .TRUE. .FALSE. .TRUE. 
.TRUE. .FALSE. .FALSE. .TRUE. .FALSE. .TRUE. 
.TRUE. .TRUE. .TRUE. .TRUE. .TRUE. .FALSE. 


Mantıksal ifadeler .AND., .OR., .NOT., .EOV. ve .NEOV. operatörlerinin kullanımıyla 
birleştirilerek yeni önermeler oluşturulabilir. Bu operatörlerin uyduğu kurallar ve fonksiyonu 
Tablo 3.2 de verilmektedir. Örneğin, X ve Y sırasıyla 1. ve 5. değerlerine sahip olsunlar, bu 
durumda (X>3.0.AND.3.*Y<30.) ifadesi (false.AND.true) olacak; ve sonuçta 
önerme false olarak değerlendirilecektir. Ayrıca, (X*Y--0.0.OR.Y<13.) ifadesi 
(false.OR.true) olacak, sonuçta true değerini alacaktır. 


olarak hesaplanır. Mantıksal operatörler soldan sağa doğru taranarak 
değerlendirilir. 


YE Mantıksal önermelerle işlemlerde aritmetik işlemler işlem hiyerarşisine uygun 


Örneğin, (1--10.OR.X<1.0.AND.Z>-0.0) olarak verilen bir birleşik önerme esasında 
derleyici (tarafından (o((1--10) .OR.(X<1.) .AND. (2>-0.0) ) şeklinde (o yorumlan- 
maktadır ve ((1--10) .OR.((X<1.) .AND. (Z>-0.0))) şeklindeki yazılım ile eş 
değerdir. Eğer 1-10, X-0.0 ve 7--1.0 ise, bu durumda yukarıdaki önerme 
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(£rue.OR.true.AND. False) olarak okunacak, true.AND.false-false ve bunun 
sonucunda da (frue.OR.false) önermesine eşdeğer olacak; sonuç olarak bu önerme 
true değerini alacaktır. 


3.3.2 BLOKIF YAPISI 


Sıklıkla kullanılan IF koşul yapılarından biridir. IF ile belirlenen mantıksal ifadenin “doğru” 
olduğu durumda gerçekleştirilecek blok deyimlerin yer aldığı bir yapıdır. Mantıksal ifade 
“yanlış” ise derleyici bu satırı atlayarak END IF'den sonraki satıra geçer. Genel kullanım 
şekli aşağıda verilmiştir. 


IF (mantıksal önerme) THEN 
Deyim 1 
Deyim 2 Blok kısmı 
Deyim 3 

END IF 


Aşağıdaki örneklerden görüleceği üzere IF koşulu gerçekleştiğinde IF-END IF bloğu 
içinde belirlenmiş deyimler göz önüne alınmaktadır. 


(a) IF(A>B) THEN (b) IF(T<23) THEN 
C-A*AHB*B Z-SIN(3.14*T) 
D-TAN(C/ (AB) ) X-COS(3.14*T) 
E—D**Ç END IF 
END IF 


(c) IF(b*b-4.*a*c<0.) THEN 
PRINT*, 'İkinci dereceden denklemin kökleri sanaldır' 
END IF 


3.3.3 IF-ELSE-END IF YAPISI 


Bir algoritmada mantıksal IF testinin iki sonucu vardır; şartın TRUE ve FALSE olduğu 
durumlar için birer Fortran deyimleri blokları kullanılır. Her iki şarta cevap verme ihtiyacının 
olduğu böylesi durumlarda IF—THEN—ELSE—ENDIF' yapısı kullanılır. Bütün karar verme 
yapılarının temel taşı olan mantıksal IF yapısının genel kullanım şekli aşağıda verilmektedir. 


IF ( <mantıksal önerme> ) THEN 
BLOK 1 
Sadece mantıksal ifadenin doğru (. TRUE .) olduğu durumda işlenecek 


Fortran deyimleri gurubu (blok deyimler) yer alır. 
ELSE 


BLOK 2 


Sadece mantıksal ifadenin doğru (. TRUE . ) olduğu durumda işlenecek 
END IF 
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Mantıksal önerme “doğru” ise birinci, “yanlış” ise ikinci blokta yer alan işlemler dizisi 
gerçekleştirilir. 
Örneğin, 


Delta-b*b-4.0*a*c 
IF (Delta>-0.0) THEN 
d—SORT (Delta) 
PRINT*, "İkinci dereceden denklemin kökleri" 
X12(-b—-d) /(2.*a) 
X2-(-btd) /(2.*a) 
PRINT*, "X12",XI, " X2-",X2 


ELSE 
PRINT*, "Denklemin kökleri sanaldır" 
ENDIF 


Bu örnekte kullanılan IF—THEN—ELSE—ENDTIF bloğunun içinde yer alan işlemlerin, bloğu 


belirginleştirmek için, beş karakter içeriden yazıldığına dikkat ediniz. 


programda okunabilirlik ve takip edebilirlik sağlamak için blok deyimlerini, 
örneklerdeki gibi, biraz içinden yazınız. 


NE Birden fazla iç içe IF-THEN-ELSE-ENDIF bloğu kullanıldığında, 


3.3.4 ELSE VE ELSE IF KULLANIMI 


Bir dizi koşulun bulunduğu durumda farklı koşullarda yerine getirilecek işlemlerin bir arada 
verilmesi bakımından yararlıdır. 


IF (<mantıksal önerme 1>) THEN 
Mantıksal önerme I'in doğru (. TRUE. ) olduğu durumda işlenecek blok 
Deyim 11 
Deyim 21 


ELSE IF (<mantıksal önerme 2>) THEN 
Mantıksal önerme 2'nin doğru (. TRUE. ) ve mantıksal önerme I'in yanlış 
(CFALSE .) olduğu durumda işlenecek blok 
Deyim 21 
Deyim 22 


ELSE 
Mantıksal önerme 2'nin yalnış (. FALSE.) ve mantıksal önerme V'in yanlış 
(CFALSE .) olduğu durumda işlenecek blok 
Deyim 31 
Deyim 32 


END IF 
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Örneğin, 


PROGRAM ikinci derece denklem 

IMPLICIT NONE 

REAL :: a, b, c, d, Delta, Xxl, x2 

READ*, a, b, c 

Delta-b*b—-4.0*a*c 

IF(Delta>0.0) THEN ! Delta>0 Bloğu 
d-SORT (Delta) 
PRINT*, "İkinci dereceden denklemin kökleri" 
x1-(-b-d) /(2.*a) 
x2-(—btd) /(2.*a) 
PRINT*, "x1-",x1," x2—",x2 

ELSE IF(ABS(Delta)<1.e-5) THEN ! Delta - O Bloğu 
PRINT*, "Kökler eşittir" 
x1--b/(2.*a) 
PRINT*, "x1—x2—",x1 

ELSE ! Delta < 0 Bloğu 
PRINT*, "Denklemin kökleri sanaldır" 

ENDIF 

END PROGRAM ikinci derece denklem 


ÖRNEK 4: Aşağıdaki şekilde verilen bir fonksiyonu, dışarıdan girilen herhangi bir x değeri 
için hesaplayan bir FORTRAN programı yazınız. 


25x47, x<0; 

2 —4, 0<x5; 
Fa)-3 

sin x—cCOSXx, S<XSI; 

7 x>7. 


IF-THEN-ELSE IF-ENDIF yapısını kullanarak aşağıdaki şekilde programlayabiliriz. Her 
bir koşulun gerçekleştiği durumda fonksiyonun hesaplandığı işlemler atama deyimleri ile 
gerçekleştirilir. 


PROGRAM fonksiyon 

IMPLICIT NONE 

REAL :: Xx, EF, pi-3.14159 

PRINT*, 'x Değerini Giriniz'; READ*, Xx 

IF(x<0.0) THEN 
F-2.5*X1pi 

ELSE IF(x>-0.0.AND.x<-5.0) THEN 
F-x*x—4.0 

ELSE IF(x>5.0.AND.x<-7.0) THEN 
F-SIN (Xx) —COS(x) 


ELSE 
F-pi 
ENDIF 
PRINTI*, 'E(',x,')-',E 


END PROGRAM fonksiyon 
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3.3.5 İSİMLİ BLOK IF KULLANIMI 


IF bloklarına isim vermek mümkündür. İsim bir alfabe karakteri ile başlayıp, en fazla 31 
karakter uzunluğunda olabilir. Kullanılan isim END IF deyiminden sonra da yazılmalıdır. IF 
bloğu için kullanılan isim başka amaçlar için kullanılmamalıdır. 


Dıstaki : IF (<mantıksal önerme 1>) THEN 
Deyim 11 
Deyim 21 


icteki: IF (<mantıksal önerme 2>) THEN 
Deyim 21 
Deyim 22 
END IF icteki 


END IF Distaki 


Bir programda kullanılan IF-THEN (ELSE) yapıları iç-içe yuvalanmalıdır. Örneğin, 


TTF(A>—0.005) THEN | TF(A>-0.005) THEN 
IF(B<3.14) THEN 
IF(B<3.14) THEN a 
> ENDIF 
ENDIF e 
e ELSE 
IF(n>-20) THEN| IF(n>-20) THEN| 
ELSE ELSE 
ENDIF | ENDIF | 
| ENDIF | ENDIF 


şeklinde verilen yapılar “doğru” olarak yuvalanmış IF yapılarını göstermektedir. Çok 
sayıdaki IF deyimlerinin kullanılması halinde hangi deyim END IF ile kapatıldı takibi 
güçleşmektedir. Bu nedenle, bloklara isim vermek makul bir strateji olacaktır. 


“Yanlış” yuvalanan IF yapılarına bazı örnekler de aşağıda verilmektedir. 
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ifl:1IF (x<1.45) THEN ifl :1IF (x<1.45) THEN 
eN IF (B>-999) THEN| Mi (B>-999) THEN| 
ENDİR fi ELSE (i£i'e ait) 
ENDİR 1£2 ENDİR 1£2 
ENDİR i£1 


İki IF ile belirli bloklar birbirlerini kesmemelidir! 


ÖRNEK 5: Bir sınıftaki öğrencilerin ham notlarına aşağıdaki şekilde harf notları atayacak 
programın koşullu kısmını yazınız. 


95 < NOT AA 
87 < NOT < 95 BA 
79 < NOT Ss 87 BB 
71 < NOT s< 79 CB 
67 < NOT < 71 CE 
59 < NOT < 67 DC 
49 < NOT < 59 DD 
49 < NOT FE 


Bir not verilen not aralıklarına karşılık geldiğinde harf notunu yazan bir program 
hazırlayabiliriz. Bu amaçla not aralıklarını IF—THEN-ELSE IF yapısal deyimi ile 
belirlememiz daha kolay olmaktadır. Bu durumda 


IF(NOT>95.) THEN 

PRINT*, "Harf Notu AA dır" 
ELSE IF(NOT>87.) THEN 

PRINT*, "Harf Notu BA dır" 
ELSE IF(NOT>79.) THEN 

PRINT*, "Harf Notu BB dir" 
ELSE IF(NOT>71.) THEN 

PRINT*, "Harf Notu CB dır" 
ELSE IF(NOT>67.) THEN 

PRINT*, "Harf Notu CC dir" 
ELSE IF(NOT>59.) THEN 

PRINT*, "Harf Notu DC dir" 
ELSE IF(NOT>49.) THEN 

PRINT*, "Harf Notu DD dır" 


ELSE 


PRINT*, "Harf Notu FF dir" 
END IF 


IF-ELSE IF deyimlerinden fazla sayıda kullandığımızdan dolayı, bazı yanlışlıklar 
yapmanın önüne geçmek için, hangi if deyiminin nerede açıldığı ve nerede kapandığını 
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isimli yapı kullanarak görebiliriz. Bu şekilde isimli IF yapısı kullanıldığında, program 


ifl : IF(NOT>95.) THEN 
PRINT*, "Harf Notu AA dır" 
ELSE 
if2 : IF(NOT>87.) THEN 
PRINT*, "Harf Notu BA dır" 
ELSE 
if3 : IF(NOT>79.) THEN 
PRINT*, "Harf Notu BB dir" 
ELSE 
if4 : IF(NOT>71.) THEN 
PRINT*, "Harf Notu CB dır" 
ELSE 
if5 : IF(NOT>67.) THEN 
PRINT*, "Harf Notu CC dir" 
ELSE 
if6 : IF(NOT>59.) THEN 
PRINT*, "Harf Notu DC dir" 
ELSE 
if7 : IF(NOT>49.) THEN 
PRINT*, "Harf Notu DD dır" 
ELSE 
PRINT*, "Harf Notu FF dir" 
END IF if7 
END IF if6 
END IF if5 
END IF if4 
END IF if3 
END IF if2 
END IF ifl 


şeklinde oluşturulabilir. 
3.3.6 MANTIKSAL IF DEYİMİ 


Bir koşula karşın sadece bir deyim icra edilecekse, bu işlemi IF—-END IF bloğu kullanmak 
yerine sadece bir satırda mantıksal IF deyimi ile belirtmek mümkündür. 


Eğer mantıksal önerme FALSE ise bir sonraki satıra geçilir. 


IF (<mantıksal önerme>) Deyim 


Örnekler, 


IF(A<-B) T-B-A 
IF(N>100) CYCLE 
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IF(Delta<0) PRINT*, "Kökler sanaldır" 
IF(N--1) M-24N-1 
IF(KOD>-90) EXIT 


IF( X<1.) YEX*X*X—3.4X*X15. 
IF(X>-1.) Y-2.—X*X 


3.4 KOŞULLU CASE YAPISI 
Mantıksal IF' yapısına alternatif bir diğer FORTRAN deyimi de CASE yapısıdır. Bir karakter, 


bir mantıksal ifade veya bir tam sayının değerine göre bir blok işlemleri yapar. Genel 
kullanım şekli 


(isim :) SELECT CASE (<ifade>) 
CASE (secim 1) Jisiml) 
Deyim 11 
Deyim 21 Blok 1 


CASE (secim 2) Jisim|) 
Deyim 21 
Deyim 22 Blok 2 


CASE DEFAULT Jisim| 
Deyim nl 
Deyim n2 Blokn 


END SELECT fisim)| 


olarak verilir. IF bloklarında olduğu gibi, CASE yapısında da isim kullanılabilir. Bazı 
örnekler, 


(a) PROGRAM Ornek a 
IMPLICIT NONE 
INTEGER :: deger 
DO 
PRINT*, "Bir Sayı Giriniz"; READ*, deger 
SELECT CASE (deger) 
CASE (1,3,5,7,9) 
PRINT*, "Değer TEK SAYIDIR" 
CASE (2,4,6,8,10) 
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BÖLÜM 3. TEMEL PROGRAMLAMA TEKNİKLERİ 


PRINT*, "Değer ÇİFT SAYIDIR" 
CASE (11:) 
PRINT*, "Değer çok büyüktür" 
CASE DEFAULT 
PRINT*, "Değer sıfır yada negatiftir" 
EXIT 
END SELECT 
END DO 
END PROGRAM Ornek a 


PROGRAM Ornek b 


IMPLICIT NONE 
REAL, PARAMETER :: pi-3.14159 
REAL :: azl0. 
SELECT CASE (a*SORT (pi) ) 
CASE (0:) 
PRINTI*, "a>0" 
CASE (:0) 


PRINT*, "a<0" 
CASE DEFAULT 
PRINT*, "a-0" 
END SELECT 
END PROGRAM Ornek b 


PROGRAM Ornek c 
IMPLICIT NONE 
CHARACTER(LEN—7/) :: renk 
READ*, renk 
SELECT CASE (renk) 
CASE ("Kırmızı") 
PRINT*, "DUR" 
CASE ("Yeşil ") 
PRINT*, "GEÇ" 
CASE ("Sarı 0) 
PRINT*, "HAZIRLAN" 
CASE DEFAULT 
PRINT*, "YANLIŞ GİRDİ İLE KARŞILAŞILDI! " 
END SELECT 
END PROGRAM Ornek c 


PROGRAM Ornek a 

IMPLICIT NONE 

INTEGER :: I 

READ*, I 

SELECT CASE (1) 
CASE(1); PRINT*, "1-1" 
CASE(2:9); PRINT*, "I>-2 ve 1I<-9" 
CASE (10); PRINT*, "1>-10" 
CASE DEFAULT; PRINT*, "I1I<0" 

END SELECT CASE 

END PROGRAM Ornek d 
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ÖRNEK 6: CASE yapısını kullanarak iki tamsayıya dört aritmetik işlemi uygulayan bir hesap 
makinesi programı yazınız. 


Bu amaçla *, -, * ve / işlemlerini karakter olarak tanımlayıp, her işarete göre iki sayıya 
uygulanacak aritmetik işlemi belirleyebiliriz. İşlemi bir sorgulama ve hesap işlemini bir DO 
döngüsü içerisinde ve CASE yapısı kullanmak suretiyle belirtelim. Hesap makinesinden çıkış 
işlemini de operatörün dört işlem karakterlerinden farklı bir karaktere bağlayacağız. 


PROGRAM Hesap Makinesi 

IMPLICIT NONE 

l 

!I Basit bir hesap makinesi işlevi gören program 
l 


INTEGER :: I,u,K 


CHARACTER :: Operator 
DO 


PRINT *,' İki Tamsayı giriniz' 

READ *, I,J 

PRINT *,' Operatörü (1, -, *, /) Giriniz' 
READ '(A)', Operator 

HesapMak : & 

SELECT CASE (Operator) 


CASE ('-*') HesapMak 

K-14J 

PRINT *,' Toplam - ',K 
CASE ('-—') HesapMak 

K-I-J 

PRINTI *,' Fark — ',K 
CASE ('/') HesapMak 

K-1/J 

PRINTI *,' Bölüm — ',K 
CASE ('*') HesapMak 

K-I*J 

PRINT *,' Çarpım -— ',K 
CASE DEFAULT HesapMak ! t*, -, *, / değilse ÇIK 

EXIT 

END SELECT HesapMak 


END DO 
END PROGRAM Hesap Makinesi 


ÖRNEK 7: 80 karakterden oluşan bir satırda sesli ve sessiz harfleri, boşlukları ve rakamların 
sayısını hesaplayan bir program yazınız. 


Bu örmekte de sesli, sessiz harfler, boşluklar, rakamlar ile bu guruba girmeyen diğer 
karakterleri saymak için CASE yapısından yararlanacağız. Bu nedenle her gurupta yer alan 
karakter özellikleri CASE (..) içinde ayrıntılı olarak vermeliyiz. 
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PROGRAM Ornek 7 
IMPLICIT NONE 


INTEGER :: Sesli-0 , Sessiz-0O, Basamak-0 
INTEGER :: Bos-0, Diger-0, I 
CHARACTER :: Harf ! Uzunluğu 1 karakter olarak algılanmaktadır. 
CHARACTER (LEN-80) :: Satir 
READ '(A)', Satir 
DO 11,80 ! 1.ci sütundan 80.ci sütuna kadar sırayla karakterler 
Harf-Satir(1:1I) ! l.ci sütünda yer alan karakteri harfe atıyoruz. 


SELECT CASE (Harf) 
CASE('A',"E',*'I*,'1"','0*','Ö',*U*,& 
Ü'slat, tel ,Tat, 1! ig g1. & 
e 
Sesli-Sesli * 1 
ÇASE('B';Ç', Çı, DD. *BI,'Gr, RH, & 
Val EK AMİ EMA, İNS Pp er 
RİNE İŞİMİ Vİ İNŞ XX; 
deb Set lr vE 
Gia gk EL imi, “a; 
'b';'g',ir',“s! İşi lt”, 'i 
MİRİX yi, iz") 
Sessiz-Sessiz t 1 
CASE('1','2','3','4',15','6',17','8','9g','0') 
Basamak-Basamak t 1 
CASE(' ') 
Bos — Bos * 1 
CASE DEFAULT 
Diger- Digertl 


RR MAM M 


END SELECT 
END DO 
PRINT *, ' Sesli — ', Sesli 
PRINI *, ' Sessiz — ', Sessiz 
PRINT *, ' Basamak- ', Basamak 
PRINT *, ' Boşluk —< ', Bos 
PRINT *, ' Diğer karakterler - ', Diger 


END PROGRAM Ornek 7 


CASE içinde o blok içinde yer alan koşullar birden fazla ise virgül ile ayrılarak 
C1','2','3' gibi) sıralanmaktadır. Burada kullanılan Satir (1:1) işleminin ayrıntısına 
ileride değinilecektir; ancak kısaca ne yaptığımızı belirtmek açısından açıklayacak olursak; 
satir alfa sayısal değişkeninin I.ci sütunundaki karakteri harf değişkenine atamaktadır. 
Örneğin, ” deneme” isimli bir alfa sayısal sabiti veya değişkeni için deneme (3:3) -n 
veya deneme (5:5) -m ve deneme(2:2)-deneme(4:4) -deneme(6:6)-e 
olmaktadır. 


3.5 ŞARTLI DÖNGÜLERİN POTANSİYEL HATALI KULLANIM 
DURUMLARI 


Bir mantıksal IF veya CASE yapısı kullanırken çok sık yapılan hatalara değinmekte yarar 
vardır. Mantıksal IF' yapısını 
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1. Gerçek (REAL) sayılarla eşitlik kıyaslaması için kullanmayınız. Bunun nedeni gerçek 
sayıların yaklaşık değerlerden oluşmalarıdır. Örneğin, 


REAL :: A, B 
A-2.0; B-SORT(A) **2 
IF(A--B) THEN 

PRINT*, ' A, B"YE EŞİTTİR' 
END IF 

veya 
SELECT CASE (a) 
CASE (a-3.15) 


CASE (a--b) 
END SELECT 


ifadelerinde B tam olarak 2'ye eşit değildir (B 42) çünkü B—275e gibi bir değer 
almakta olup, bu kıyaslama başarısızlık ile sonuçlanacaktır. 


2. Eğer bir gerçek değerin EPSILON gibi küçük bir sayıdan daha küçük olup olmadığı 
araştırılmak isteniyorsa, bu kıyaslamayı asla 


REAL :: U, EPSILON-1.e-6 
IF(U<EPSILON) THEN 

PRINT*, 'U, EPSILON DAN KÜÇÜKTÜR' 
ENDIF 


şeklinde yapmayınız! Bunu daha ziyade 


IF (ABS(U) <EPSILON) THEN 
PRINT*, 'U, EPSILON DAN KÜÇÜKTÜR' 
ENDIF 


şeklinde kıyaslayınız. Çünkü U negatif değerlerde alabilir; bu durumda bir negatif 
değer, büyüklüğü ne olursa olsun, yukarıdaki koşulun (U <&) sağlanmasına neden 
olur. Bu nedenle koşulu |(U)<e şeklinde oluşturmak daha uygundur. Burada 


EPSILON gibi küçük bir sayının ne olması gerektiğini ( 103 yoksa 10“ mi) 
algoritma gereği programcı belirler. 
İki gerçek sayının (A ve B gibi) eşitliğinin kıyaslanması da, bu bilgilerin ışığı altında, 


REAL :: A, B, EPSILON-1.e-6 
IF (ABS(A-B) <EPSILON) THEN 


ENDIF 


şeklinde yapılmalıdır. 
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ÖRNEK 8: İkinci dereceden denklemin köklerini gerçek farklı, gerçek katlı kök ve sanal 
kökler olmak köklerinin türlerini belirten bir program yazınız. 


PROGRAM ikinci derece denklem 

REAL :: A, B, C, DELT 

READ*, A, B, C 

DELT—-B**2—4.0*A*C 

IF(DELT>0.0) THEN 
! DELTA>O olduğu durumda kullanılacak deyimler Bu Blokta yer alır 
PRINT*, 'iki farklı gerçek kök var ' 

ELSE IF(ABS(DELT)<1.e-6) THEN 
! DELTA-O olduğu durumda kullanılacak deyimler Bu Blokta yer alır 
PRINT*, 'Eşit iki gerçek kök var ' 

ELSE 


! Yukarıdaki her iki koşulun sağlanmadığı durum için (DELTA<O0) 
! kullanılacak deyimler bu blokta yer alır 
PRINT*, 'Kökler kompleks eşleniktir' 
ENDIF 
END PROGRAM ikinci derece denklem 


Bu programda A — 0 koşulunu vermek yerine JA <10“ mantıksal ifadesi kullanılmıştır; 
çünkü sıfıra eşitlik koşulu koymak yukarıda bahsedilen nedenlerden ötürü yanlıştır. 


ÖRNEK 9: a, b ve c sayılarının, bir üçgenin kenarlarını oluşturup oluşturmadığını saptayan 
bir program yazınız. Eğer bir üçgen oluşturuyorlarsa, üçgenin çevresini hesaplasın, aksi 
takdirde ekrana 'ÜÇGEN DEĞİLDİR' mesajını yazsın. 


Bu problemin programını hazırlamak için gerekli bilgi, geometri dersinden hatırlayacağınız 
üzere "üçgenin bir kenarı daima diğer iki kenarının toplamından küçük olmalıdır" kuralıdır. 
Bunagöre,a <bsc,b <ascvec<a 4 b olduğu göz önüne alınacaktır. Böylece 
a,bvecsaylana>b*c, b>atcveyac>a t b eşitsizliklerinden en az birini 
sağlıyorsa, bir üçgenin kenarlarını oluşturamazlar. 


PROGRAM ucgen 
REAL :: A, B, C, CEVRE 
PRINT*, 'A, B ve C yi Giriniz ' 
READ*, A, B, C 
IF(A>—(B*C) .OR.B>—(A*C) .OR.C>-(A4B)) THEN 
PRINT*, 'ÜÇGEN DEĞİLDİR' 
ELSE 
CEVRE-A1HB1C 
PRINTI*, 'Çevre-',CEVRE 
END IF 
END PROGRAM ucgen 
Yukarıda bahsedilen nedenle eşitsizliklerden herhangi biri sağlandığında, “üçgen değildir” 
mesajı yazdırılmıştır. Eşitsizlikler sağlanmıyorsa, yani IF deyimindeki mantıksal önerme 
FALSE değerini alıyorsa, verilen üç sayının bir üçgenin kenarlarını oluşturduğu 
kesinleşecektir. Bu koşul altında üçgenin çevresini üç kenarın toplanması ile buluruz. 
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ÖRNEK 10: Bir sigorta şirketinin uyguladığı sağlık sigortası primi esasları şöyle 
belirtilmektedir. Aylık prim (YTL olarak), şahıs yaşının 5 katı olarak belirleniyor. Ayrıca 
şahıs bekar ise (Durumz1) © 10, evli ve çocuksuz ise (Durum-2) © 15 ve evli ve çocuklu 
ise (Durum-3) © 25 iskonto uygulanıyor. Şahsın yaşını (Yas) ve durumunu (Durum) esas 
alarak aylık sigorta primini hesaplayan bir program yazınız. 


PROGRAM Sigorta Primi 

INTEGER :: Durum, Yas 

REAL :: PRIM 

PRINT*, 'ŞAHSIN YAŞINI GIRINIZ ' 
READ*, Yas 

PRINTI*, 'DURUM KODUNU GIRINIZ ' 
READ*, Durum 

PRIM-5.0*Yas 

SELECT CASE (Durum) 


CASE (1) 
PRIM-O0.90*PRIM 
CASE (2) 
PRIM-O0.85*PRIM 
CASE (3) 
PRIM-O.7/5*PRIM 
CASE DEFALUT ! Durum<lI veya Durum>3 
EX1IT 
END SELECT 
PRINT*, 'Şahsın Yaşı - ', Yas 
PRINTI*, 'Ödeyeceği prim - ',PRIM, ' YIL' 


END PROGRAM Sigorta Primi 
3.6 DOİLE DO-WHILE DÖNGÜSÜ VE TEKRARLI ARİTMETİKLER 


Bir WATLE döngüsü, bir mantıksal koşul sağlanıncaya kadar bir blok içindeki deyimlerin icra 
edilmesi işlemi için kullanılır. Genel kullanım şekli aşağıda verilmiştir: 


(isim :1) DO 


ni Blok 
IF(<mantıksal-—ifade>) EXIT 


END DO Jisim| 


DO-END DO blok deyimleri arasındaki deyimler, mantıksal-ifade doğru oluncaya 
kadar ve “doğru” olduğu durum da dahil olmak üzere blok içinde yer alan işlemler icra edilir. 
Bu bloktan EXIT deyimi ile çıkılır. Bir WIILE döngüsünden, birden fazla IF deyimi ile 
çıkış koşulları verilebilir. 
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Bir DO-WHILE döngüsünde, döngüden çıkış koşulu IF yapısı kullanmayı gerektirmez; 
döngü yapısında bir mantıksal ifade kullanarak aşağıdaki gibi belirtilir. Mantıksal ifade 
“doğru” ise blok içindeki deyimler icra edilir ve DO-WHILE deyimine döner; mantıksal ifade 
halen “doğru” olduğu sürece, blok deyimleri icra edilir. Bu işlemler mantıksal ifade yanlış 
oluncaya kadar sürdürülür; “yanlış” olduğunda END DO'dan sonraki ilk icra edilebilir deyime 
geçer. 


(isim :J) DO WHILE (<mantıksal - ifade>) 
Deyim 1 
Deyim 2 

Blok 
Deyim 'n 


END DO Jisim)| 


Bu yapı daha genel WETLE döngüsünün, çıkış testinin deyimin başında yapıldığı, özel bir 
durumudur. 


döngüden çıkışların olanaklı olduğu DO—-END DO döngüsünü, DO WHILE— 
END DO döngüsüne tercih ediniz! 


1” Daha genel programlamaya olanak sağladığı ve birden fazla koşul ile 


Programlama dillerinde öğrencilere ters gelen bir uygulama da, bilgisayarda yapılan çok 
sayıdaki toplama (veya çıkarma, çarpma, bölme) işlemi için izlenen metottur. Bu metotta 
değişkenlerin değerlerinin bellekte saklanması esasından yararlanır (bknz Kısım 2.6 ve 2.7). 


ÖRNEK 11: Ekrandan girilen 10 adet sayının toplamını veren bir program yazınız. 
Bu programın oluşturulabilmesi için Fortran dilinde mevcut birkaç yapının kullanılması ile 
mümkündür. Bu kısımda verilen yapıları kullanarak aşağıdaki şekilde sayaç kullanımını 


içeren iki program verilmiştir: 


PROGRAM DoWhile ornek 
IMPLICIT NONE 


REAL :: toplam, sayi 
INTEGER :: sayac 
sayac-0 


DO WHİLE (sayac<10) 
sayac -sayac t 1 
PRINT*, sayac,"ci sayıyı giriniz" 
READ*, sayi 
toplam-toplam * sayi 
END DO 
PRINT*, "Toplam-",toplam 
END PROGRAM DoWhile ornek 
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veya 


PROGRAM Do ornek 
IMPLICIT NONE 


REAL :: toplam, sayi 
INTEGER :: sayac 
sayac-0 
DO 
sayac -sayac t 1 | sayaç — sayaç *l 


IF (sayac>10) EXIT 

PRINT*, sayac,"ci sayıyı giriniz" 

READ*, sayi 

toplam-toplam * sayi ! Toplam — Toplam KI 
END DO 
PRINT*, "Toplam-",toplam 
END PROGRAM Do ornek 


olarak yazılabilir. 


Her iki programda sayac sayıların kaç tane olduğunu takip eden bir sayaç, toplam ise 
tekrarlı işlemler sonunda 10 tane sayının toplamını verecek olan bir değişkendir. Bu 
programlarda kullanılan ifadeler matematiksel olarak, normalde, bir eşitsizliği göstermektedir: 
oysa daha önce bahsedilen aritmetik atama deyimlerine sayac-sayac*tl ve toplam- 
toplamtx'e karşılık gelmektedir. 


Bu ifadeleri matematiksel olarak açıklamak için, rekürans bağıntılarını anlamak gerekir. 
Rekürans bağıntılı bir dizi ele elalım. Genel terimi a, —a, ,*3 ve a, <0 olsun. Bu dizinin 


n>l için elemanları şu şekilde bulunur: önce genel terimde n—1,2,... yazılarak 


da, 4g *3(0)43>3 
4) 4,*32(3)43 
dd) 435(6)43 
4420343 2(9) 43-12 


Bu şekilde dizinin elemanlarının sırasıyla 0,3,6,9,12.. şeklinde oluştuğu görülür. Dikkat 
edilirse 4,12 olup dört kez üç'ün toplamına eşittir. Bilgisayardaki sayac-sayactl 
ifadesi işlem gördüğünde sayac'ın değerini bir öncekine göre bir artıran rekürans ifadesine 
benzetilebilir. Diğer yandan, toplamstoplam * x ise toplam değerine her işlemde x 
sayısını ekler. Bu ifadeler ilk işlem sırasında sağdaki toplam değeri ne ise onun üstüne 
ekleme yapar. Bu tür ardışık işlemde indisleri kaldırarak yazarsak, toplam — toplam tx 
ifadesi elde edilir ki, burada sağ tarafındaki toplam hesaplanır ve eşitliğin sol tarafındaki 
değişkenin belleğine atanmasına karşılık gelir. 


Çok sayıda çarpma işlemi yapmak gerektiğinde de toplama işlemine benzer bir ardışık işlem 
uygulanabilir. Örneğin, n/ hesabını yapan bir program hazırlayalım. 
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PROGRAM Faktoriyel 
IMPLICIT NONE 


INTEGER :: sayac-0, n, faktor:l. 
READ*, n 
DO 
sayac -sayac t 1 | sayaç < sayaç #| 
IF (sayac>n) EXIT 
faktor-faktor*sayac I Faktör < Sayaç * Faktör 
END DO 


PRINT*, "Faktoriyel-—", faktor 
END PROGRAM Faktoriyel 


Burada da Faktor-Faktor*Sayac ifadesi faktor —i*Faktor , ve Faktor, zl 


şeklindeki bir rekürans bağıntısı, Faktor-Faktor*Sayac, şeklinde indisli değişken 
kullanımını gerektirmeyen atama komutu ile gerçekleştirilmektedir. 


3.7 MAKİNE SABİTLERİ VE KULLANIMI 


Programcılar uyguladıkları algoritmalar gereği kullanılan makinenin (bilgisayarın) işlem 
yapabileceği en küçük sayı (epsilon), sayının alt ve üst sınırları, en büyük sayı, basamak 
doğruluğu gibi özelliklerden yararlanırlar. Bu özellikler tek veya çift hassasiyet kullanımına 
göre değişmektedir. Kıyaslamalarda makinenin bu özelliklerinden yararlanılabilir. 


FORTRAN 90/95 dillerinde, programda kullanılan basamak hassasiyetine göre, makinenin 
alabileceği en küçük, en büyük vb sayıları veren arşiv programları ile donatılmıştır. Bu arşiv 
programlarından en sık kullanılanları Tablo 3.3”de verilmiştir. 


Tablo 3.3 Makinenin sayılarla ilgili arşiv programları ve işlevleri. 


Fonksiyon 

BIT SIZEÇi) 
DIGITS (Xx) 
EPSILON (Xx) 
HUGE (Xx) 

KIND (Xx) 
PRECISION (Xx) 


RANGE (X) 


Kullanımı 

Tamsayı sorgulama fonksiyonudur; i tamsayısının bit sayısını bildirir 
Tamsayı sorgulama fonksiyonudur; x gerçek veya tam sayısının 
değerli basamak sayısını ikilik düzende bildirir. Onluk düzendeki 
basamak sayısı için PRECISTON (x) kullanılmalıdır. 

Tamsayı sorgulama fonksiyonudur; x gerçek sayısı ile aynı tipte olup 
makinenin hassasiyet bakımından en küçük sayısını bildirir. 

Tamsayı sorgulama fonksiyonudur; x gerçek sayısı ile aynı tipte olup 
makinenin hassasiyet bakımından en büyük sayısını bildirir. 

Tamsayı sorgulama fonksiyonudur; x sabiti veya değişkeninin tipini 
bildirir. 

Tamsayı sorgulama fonksiyonudur; x sabiti veya değişkeninin 
değerli basamak sayısını onluk düzende bildirir. 

Tamsayı sorgulama fonksiyonudur; x tipindeki (tamsayı, gerçek veya 
karmaşık sayı) sayının en küçük ve en büyük sayı aralığını bildirir. 
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ÖRNEK 12: Kişisel bilgisayarınızın, Tablo 3.3”de verilen arşiv programları kullanılarak, 
çeşitli sayısal kapasitesi sorgulayınız. 


PROGRAM Ornek 12 


IMPLICIT NONE 

PRINTI*, "Basamak —",DIGITS(I.) 
PRINT*, "Ufak —",TINY(1.0) 
PRINT*, "Ufak —",TINY(1.d0) 
PRINT*, "Epsilon -", EPSILON(1.0) 
PRINT*, "Epsilon —", EPSILON(1.d0) 
PRINTI*, "Büyük -",HUGE (1.0) 
PRINT*, "Büyük —",HUGE(1.d0) 
PRINT*, "Hassasiyet-—", PRECISION(1.) 
PRINT*, "Hassasiyet-—", PRECISION(1.d0) 


END PROGRAM Ornek 12 


Programının çıktısı 


Basamak - 24 ! Sayının ikilik düzende kullandığı basamak sayısıdır 
Ufak - 1.17549435E-38 ! en küçük sayı, REAL*4 
Ufak - 2.225073858507201E-308 ! en küçük sayı, REAL*8 
Epsilon - 1.19209290E-07 ! makine epsilonu REAL* 4 
Epsilon — 2.220446049250313EF-16 |! makine epsilonu REAL*8 
Büyük —- 3.40282347E138 ! en büyük sayı REAL*4 
Büyük — 1.797693134862316E1308 ! en büyük sayı REAL*8 
Hassasiyet- 6 ! basamak hassasiyeti REAL*4 
Hassasiyet- 15 ! basamak hassasiyeti REAL*8 


olarak elde edi 


Imiştir ve kullandığınız bilgisayarın mikro-işlemcisine göre farklılıklar 


gösterebilir. Kısım 3.5'de verilen EPSILON yerine EPSILON(1.) kullanılabilir. 


ALIŞTIRMALAR 


3.1 Aşağıdaki program parçalarında varsa hataları bulunuz. 


(a) 


(©) 


(c) 


REAL :: A 
IF(Az-10) THEN 

Print*, "A-10 dur " 
ENDİF 


REAL :: X 
IF(X>5.5) THEN 
X-5.5 
ELSE 
X-5.5 
ENDIF 
REAL :: X 
INTEGER :: I 
IF((1>15) .AND.(X<2.5)) THEN 
X-0.254X 


6l 
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ELSE IF((1<-15) AND. (X>-2.5)) THEN 


X-4.*X 
1-1-1 
ELSE 
Print*, "x—“,x,” i—";,I 
ENDIF 
(d) INTEGER :: I, N 
IF (122) THEN 
N-1*5 
ENDIF 
(e) REAL :: A, B, X 
IF(At2.*B<-3.55) X>-1.234 
(E) REAL :: A, G 
IF G>>3. THEN 
A-0.5*G*G 
END IF 
(9) REAL :: X, Y, A, B, C 


IF(X*Y) C-SORT(A11.25*B) 


3211, L2 ve L3 mantıksal sabitlerin L1.TRUE., L2-.TRUE. ve L3-.FALSE. olarak 


3.3 


3.4 


3.5 


3.6 


3.7 


değer atandığını kabul ederek aşağıdaki mantıksal işlemlerin sonuçlarını bulunuz. 


(a) .NOT.LI (b) LI.OR.L3 

(b) LI.AND.L3 (d) L2.NEÇOV.L3 

(e) LI.AND.L2.OR.L3 (£) L1I.OR.L2.AND.L3 
(g) .NOT.(LI.EOV.L2) (h) (L3.AND.L2).OR.LI 


Aşağıdaki işlemi yapan bir FORTRAN programları yazınız. 
10 


9 1/4 
pa 


izl jzl 


6 
Daf *y)) 
izl 


X —j2 j2, yı — git Ms, 


Bir üçgenin kenar uzunlukları a, b, c olarak veriliyor. Bu üçgenin bir dik üçgen olup 
olmadığını tespit eden bir program yazınız. 

yz e nemi sin? (24 *n) denkleminin, #nin | ile 10 arasındaki değerlerine karşılık 
gelen y değerlerini tablo halinde veren bir program yazınız. Not: Programınızı Af 
artırım miktarı dışarıdan seçenek olarak girilecek şekilde yazınız. 


sinx ve cosx fonksiyonlarının 0-180 derece arasında aldığı değerleri tablo halinde 
veren bir program yazınız. Nof: Programınızı Af artırım miktarı dışarıdan seçenek 
olarak girilecek şekilde yazınız. Arşivdeki trigonometrik fonksiyonlarda açı raydan 
olmalıdır; bu nedenle derece olan açının radyana dönüştürülmesi gerektiğini 
unutmayınız. 


Ekrandan girilen 75 tamsayıdan (a) kaç tanesi “tek” kaç tanesi “çift” olduğunu bulan ve 


BÖLÜM 3. TEMEL PROGRAMLAMA TEKNİKLERİ 63 


adetlerini ekrana veren bir program yazınız (b) “tek” olanlar ile “çift” olanların ayrı ayrı 
toplamlarını hesaplayan bir program yazınız (c) “tek” olanlar ile “çift” olanların 
aritmetik ortalamalarını hesaplayan bir program yazınız. 


3.8 Bir arı kovanında 5800 arı mevcuttur. Arıların haftalık çoğalma oranı 02.3 olduğuna, 
her iki haftada 9 1.98'i çeşitli nedenlerle öldüğüne göre arıların bir yıl için, kovandaki 
arı nüfusunun haftalık olarak değişimini veren bir program yazınız. 


3.9 Suyun deniz seviyesinde kaynama noktası 1009C dır. Su deniz seviyesinden daha 
yükseklerde daha düşük sıcaklıklarda kaynamaktadır. Yükseklik H (metre) olarak 
alındığında Kaynama Noktasi (9C) aşağıdaki bağıntı ile hesaplanabilir: 


kaynama noktasi —100—— (9C 
ili m “O 


Bir FORTRAN programı yazarak deniz seviyesinden 100'er metre aralıklarla 5000 
metre yüksekliğe kadar kaynama noktası sıcaklığını veren bir tablo oluşturunuz. 


3.10 Bir dershanede derslikler günde on saat kullanılacak şekilde düşünüldüğünde en fazla 
5,000 öğrenciye eğitim verecek kapasiteye sahiptir. Dershaneye ilk yıl 2,896 öğrenci 
kayıt olmakla birlikte, öğrenci kayıt oranın her yıl © 5.5 artacağı düşünülmektedir. Bu 
esnada yıllara göre bu artışın sabit kaldığı varsayılırsa, dershanenin tam kapasiteye 
ulaşmak için kaç yıl gerektiğini hesaplayan bir program yazınız. 


3.11 5'i kız (K) ve 7'si erkek (E) 12 kişilik bir sınıftaki öğrencilerin matematik ve fizik 
sınavlarından aldıkları notlar aşağıdaki tabloda verilmektedir. Bu sınıftaki öğrencilerden 
(a) Her iki dersten geçer not alan (50 ve üstü) kız öğrencilerin sayısını, (b) Her iki 
dersten başarısız olan erkek öğrencilerin sayısını, (c) Matematikten başarılı fakat fizikten 
başarısız olan erkek öğrencilerin sayısını veren bir program yazınız. 


Öğrenci Kodu II 2 3 4 5 6 7 8 9 1011 12 
Cinsiyet E K K E E E K E K K E E 
Matematik 13 52 6l 66 74 48 63 42 93 37 24 15 
Fizik 92 77 87 43 62 32 28 73 52 59 37 47 


3.12 Bir banka, aylık 96 3.9 faizle, en fazla 2 yıla kadar kredi vermektedir. 50,000 YTL”?*den 
başlayarak 5,000 YTL'lik artışlarla 200,000 YTL'e kadar kredi alınması halinde 
müşterinin ödeyeceği aylık taksitleri veren bir tablo oluşturmak istenmektedir. Bu 
koşullara uygun bir program yazınız. Kullanılacak formül aşağıda verilmiştir: 

: TP 
Taksit ———— 

1-(14r)” 

P kredi miktarı (YTL), r aylık faiz oranı (bu durum için 3.9/100) ve n kredi süresi (ay 

olarak) ifade edilmektedir. 


3.13 Dört adet “gerçek” A,B,C,D, bir “tamsayı” I değerlerini okuyan ve aşağıdaki işlemleri 
yapan bir program yazınız. 


Eğer 1-1 ise X-AtBtCtD 
Eğer 1-2 ise X—(A1B1C1D) /4.0 
Eğer 1-3 ise X-A/B1C/D 
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Eğer 1-4 ise X- (AB) / (C4D) 
Eğer 1-5 ise X-A/B-C/D 
Eğer 1-0 ise Programı Terk et 


3.14 Mehmet satın aldığı dört vitesli bir bisikletin kullanım kılavuzuna baktığında, bisikletin 
dişli oranlarının aşağıdaki şekilde verildiğini gözlüyor. 


Vites o Dişli Oranı 


1 33/1 
2 2.1/1 
3 1.6/1 
4 ME A 


Bisikletin hızının aşağıdaki formülle hesaplanabileceği göz önünde tutulduğunda 
bisikletin girilen vites değeri ve devir sayısı için hızını hesaplayan bir FORTRAN 
programı yazınız. 


HIZ - 0.028 * Devir sayisi/Disli orani 


Bu formül uyarınca, örneğin birinci viteste devir sayısı 3300 devir/dakika için bisiklet 
hızı 0.028x3300x(1/3.3) 28 km/h bulunur. 


3.15 Aşağıdaki matematiksel işlemleri yapan ve ekrana XO ve Y değerlerini yazan bir 
program yazınız. 


LL Bİ İk. İZ 
XO-—Y (0241 x, İZ Y- 
521 ali al 72:(X0 yi 


3.16 İki bilinmeyenli iki denklem 
A-X4B-Y-C, D.XJE-Y—-F 


olarak verilmiş olsun. Programa dışarıdan girilecek A, B, C, D, E ve F katsayıları için X 
ve Y'nin değerlerini hesaplayan bir FORTRAN programı yazınız. 


3.17 Bir'den 20'e kadar sayıların bir birleriyle çarpımlarını bir “çarpım tablosu” şeklinde 
veren bir program yazınız. 


3.18 Birden 100'e kadar olan tamsayıların 2'şer artırımlarla sırasıyla n, n>, m, Yn 


değerlerini tablo şeklinde veren bir FORTRAN programı yazınız. 


3.19 Kütlesi m (kg) olan bir cisim, / (m) yüksekliğinden serbest düşmeye bırakıldığında, Aş 
(sn) aralıklarla, yere vuruncaya kadar, cismin konumunu, hızını ve enerjisini tablo 
halinde veren bir program yazınız. Program girdileri m, 7 ve A£ olarak alınacaktır. 


3.20 Hava ile sürtünmenin ihmal edilebildiğini kabul edersek, yeryüzünden havaya u, (m/s) 


hızıyla ve yüzeyle 9 (derece) açısı yapan bir açı ile fırlatıldığında, cisim parabolik bir 
yörünge çizer. Cismin yörünge denklemleri 


X(4) — xp (uç cos0)X ve y() yg *(ugçsin Oy 4zer 
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3.2 


pm 


ile verilmektedir. Burada (xp. yo) cismin fırlatıldığı konumun koordinatlarını (m), £ 
cismin uçuş anını (sn) ve g yerçekimi ivmesini (m/s7) olarak verilmektedir. Cismin (0,0) 
konumundan 2, 5, 8, Il ve 14 m/s hızlarıyla, 10, 25, 40, 55, 70 ve 85 derece açılarla 
fırlatıldığında cismin menzilini (cisim yere vurduğundaki x değeri) ve uçuş süresini, 
döngüler kullanarak hesaplayan bir program yazınız. Uyarı: Trigonometrik fonksiyonlar 
radyan cinsinden açılarla işlem yapar bu nedenle derece olan açıları 4,,,—764,,,... /180 


ile radyan birimine dönüştürünüz. 


Dört cismin kütleleri 4.5, 12, 18.5 ve 27.3 kg olarak verilmiştir. Her cisim sırasıyla 3, 
6.5, 8.2, 12 ve 16.1 m/s sabit hızla hareket ettirilmek istense, bütün cisimlerin farklı 
hızlardaki kinetik enerjisini hesaplayan bir program hazırlayınız. İpucu: Tüm işlemi tek 
program içinde yapabilmek için döngü kullanımından yararlanınız. 


3.22 Kurt ile tavşan nüfusunun ekolojik simülasyonu yapılmak isteniyor. Simülasyonun 


yapıldığı yörede tavşanlar yeşil, kurtlarda sadece tavşan ile beslenmektedir. Yörede çok 
sayıda yeşillik var iken tavşanlar ile beslenen kurtlar bir dezavantaja sahiptir. Kurt 
nüfusu yiyecek miktarı (tavşan) ile artmaktadır. Tavşan ve kurt nüfusunun günlük 
değişimi (sırasıyla T ve K) aşağıdaki formüller ile verilmektedir. 


Tavsan (yarın) > (1ta-c*K) *Tavsan (bugün) 
Kurt (yarın) — (1-btc*d*T) *Kurt (bugün) 


Burada a tavşanlar kurtlar tarafından avlanmadıkları takdirde çoğalma oranı 0.01 (©/01), 
b yiyecek tavşan bulamamaları takdirde kurt nüfusundaki azalma oranı 0.005 (900.5), c 
bir kurt 'un bir tavşan ile karşılaşma ve tavşanı yeme ihtimali 0.00001 (S5 0.001) ve d 
tavşan ile beslenen kurtların nüfusundaki artış oranı 0.01 (©01) olarak alınmaktadır. 


Kurtlar ile tavşanların günlük nüfus seviyelerini | yıl için (365 gün) hesaplayan bir 
program yazınız. Başlangıçta 10,000 tavşan ve 800 kurt mevcut olduğunu kabul ediniz. 
Daha sonra kurt sayısını iki misli artırarak hesabı yenileyiniz. 


3.23 Bir basit AB kirişinin herhangi bir P noktasına yerleştirilen F tekil yükü sonucunda A ve 


B mesnetindeki reaksiyonlar aşağıda verilmiştir: 
b, Fa 
* * 4 
Eğilme momenti ve X mesafesindeki sehim (yer değiştirme) aşağıdaki denklemler ile 
hesaplanabilmektedir: 


Aa 


2 2 v2 
X <a, (BM), 7, (DE), - FbX(0—b7—X9) 
l GEL 
2 2 2 
X >a, Gel), e a) (DE), -—Fa(l y£ mi lm, 
/ i GEL 


Burada (BM),, X'deki eğilme momenti (kg.m), (DE),, X'deki sehim (m), £, elastisite 
modülü (kg/m?), Eatalet momenti (m*), /—|AB)| mesafesi (m), a —|AP)| mesafesi 


b -|PB) mesafesidir. Maksimum eğilme momenti 


(BM), - Fab 


Max 
/ 


ve maksimum sehim 
a >b b için A noktasından itibaren 
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a(/ b) FbX? 
X- (22 ye DE) pax <— 
3 ( ia 3ET 


b>a için B noktasından itibaren 


3 
e le BL 
3 3ET1 


Buradaki X, artık maksimum sehimin oluştuğu yerdir. Reaksiyonları, eğilme 
momentlerini ve sehimi A/ aralıklarla hesaplayan bir program yazınız. Yazacağınız 
programda kiriş özellikleri (E ve /) ile uzunluğu (4), aralık miktarı (A/), yükün 
yerleştirildiği nokta (P) ve yük değişken olarak seçilebilmelidir. 


3.24 Bilgisayarlı hava sıcaklığı tahmini yapmak için izlenen metotlardan birisi şu şekilde 
verilmektedir: ölçüm istasyonundan itibaren, rüzgarın estiği yöne göre, her 10 km/h için 
sıcaklık düşüşleri kullanılıyor. Örneğin, herhangi bir istasyon için ve herhangi bir anda, 
rüzgarın yönü doğu, kuzey, batı ve güney yönlerindeki sıcaklık düşüşleri sırasıyla 
1.089C/10 km/h, 0.879C/10 km/h, 0.64*C/10 km/h ve 0.539C/10 km/h olmaktadır. Bu 
anda, istasyon ortam sıcaklığı, rüzgar hızı (km/h) ve yönü girildiğinde, hava sıcaklığını 
hesaplayan bir program yazınız. NOT: Rüzgar yönü Kuzeydoğu ise sıcaklık düşüşü 
Kuzey ve Doğu için verilen değerlerin ortalaması olarak alınacaktır. Ayrıca, yönleri 
belirlemek için yön kodu (örneğin, Yon—l1 yani Kuzey, Yon-2 yani Kuzey Doğu, 
Yon->3 yani Doğu vb) kullanınız. 


3.25 Bir araba kiralama firması çeşitli model arabalarını günlük ve haftalık olarak kirala- 
maktadır. Bir arabanın kira bedeli, kiralanan gün sayısı (kira gun) çarpı günlük kira 
bedeli (Gunluk Bedel) artı aracın aldığı yol (Yol) çarpı kilometre başına bedel 
(km bedel) ile hesaplanıyor. Haftalık kiralama durumunda ise, haftalık kira bedeli 
(Haftalik Bedel) artı kullanılan benzin ücretidir. Bu durumda haftalık kira bedeli, 
gidilen yol, benzin sarfiyatı Sarfiyat (kmlt) ve benzin fiyatının BenzinFiyat 
(YTL /litre) bir fonksiyonudur. Firmanın elindeki arabalar normal, spor, lüks limuzin 
olarak üç gurupta toplanıyor. Bu guruplara ait veriler aşağıdaki tabloda özetlenmektedir. 


Günlük (Kilometre Haftalık Benzin Benzin 


Bedel Bedeli Bedel Sarfiyatı (o Fiyatı 

(YTL/gün) (YILkm) (YILhafia) (km?) (O (YTLA8) 
Normal 40 0.52 230 12 2.52 
Spor 60 0.94 370 16 2.68 


Limuzin 110 1.15 700 13 2.76 


Araba kiralamak isteyen bir şahıs, günlük veya haftalık bazda, kiralayacağı bir araca ne 
kadar kira bedeli ödeyeceğini veren bir program yazınız. NOT: Haftalık kira bedelini 
hesaplarken, bir hafta boyunca araba ile katedilen yolun girilmesi gerekir. 
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KÜTÜK AÇMA/KAPAMA VE 
KULLANMA İŞLEMLERİ 


Bir programın girdi verileri az sayıda ise, verilerin bir kısmı ekrandan, bir kısmı program içinde 
sabit atama deyimleri ile girilebilir. Ancak veri sayısı fazla ise, bunları programı her 
çalıştırmada ekrandan girmek pratik bir yol değildir. Binler ve on binlerle ifade edilen verileri 
de program içinde tanımlamak iyi bir programlama tekniği değildir. Verilerin, hem 
programlamanın pratik ve genel olması hem de bazı uygulamalara daha uygun olması açısından, 
bir veya daha fazla kütükten okunması tüm programlama dillerinde bir alternatif seçenek olarak 
sunulmuştur. 


Çok sayıda veri kütükleri de genelde bilgisayar programları ile hazırlanır; örneğin, ÖSS 
sınavına girmek için başvuran adaylar, kişisel bilgilerin (TC Kimlik numarası, adı, soyadı, 
doğum tarihi, adresi, mezun olduğu okul ve türü, vb) girilmesinin istendiği bir optik form 
doldurur. Bu formlar, bir optik okuyucudan geçirildiğinde, sayısal ve alfa sayısal bilgilere 
dönüştürülerek bir kütüğe kaydedilir. Bu kütükte iki milyona yakın öğrenciye ait yaklaşık 20 
kişisel bilgi (toplam kırk milyon veri) mevcut olacaktır. Bu bilgi daha sonra çeşitli amaçlara 
hizmet eden programlarda kullanılmak üzere saklanır. Bu tür veri kütüklerine Veri Tabanı adı 
verilir. Bir çok özel ve tüzel şirket, kendisi için önemli ve gerekli bilgilerin yer aldığı, veri 
tabanını oluşturur. 


Kütüklere verileri kaydetmek veya kütükteki kayıtları programlara okutmak için bazı özel 
deyimler mevcuttur. FORTRAN 90/95 dilinde girdi/çıktı (1/0-Input /Output) deyimleri 
özet olarak Tablo 4.1'de verilmiştir. Bu deyimler kütük açma/kapama işlemlerine, kütüğün 
statüsünü kontrol etmeye, okuma imlecini kütük içinde belirli bir konuma götürme, kütükten 
okumaya ve/veya yazmaya olanak sağlar. 


Tablo 4.1 FORTRAN 90/95 dilinde kullanılan VO deyimleri. 


Deyim İşlevi 

OPEN Bir VO cihazına bağlı kütük açma 

CLOSE Bir VO cihazına bağlı kütüğü kapama 

INOUTRE Bir kütüğün özelliklerini araştırma 

READ Bir kütükten veri okuma 

PRINT Standard çıktı cihazına veriler yazdırma 

WRITE Bir kütüğe veri yazdırma 

REWIND Sıralı erişimli bir kütüğün okunmasını başa alma 


BACKSPACE Sıralı erişimli bir kütükte bir kayıt geriye gitme 
ENDFILE Sıralı erişimli bir kütüğün sonuna gitme 


Bu deyimlerin işlevlerinin ayrıntısına girelim. 
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4.1 OPEN DEYİMİ 


FORTRAN'da program kütüklerini yazmaya ve/veya okumaya açma deyimi OPEN deyimidir. 
Daha önce bahsedildiği gibi, bir bilgisayarın iki tür belleği vardır: ana bellek (daha hızlı) ve 
ikincil bellek (daha yavaş). Veri kütükleri daima ikincil bellekte, yani bir disk, CD veya teypte 
depolanır. Fazla sayıda veri gerektiren veya üreten programlarda bu verilerin giriş/çıkışının 
kütükler ile sağlanması daha pratiktir. 


Veriler kütüğe yazıldıktan sonra, kütük sonu end of file—EOF ile işaretlenir. Bu kütüklere 
Sıralı Erişimli Kütük (SEK) adı verilir. Bu kütüklerdeki bilgilere, kütüğe yazıldıkları sırayla 
erişilebilir. Bu işlem binlerce ve hatta milyonlarca veri kullanıldığında oldukça verimsiz bir 
durum veri okuma arz eder. Manyetik diskin özelliklerinden faydalanan FORTRAN 
programlama dili, ikinci tip bir kütük kullanımını mümkün kılar. 


Manyetik disk bilgiyi mıknatıslanmış bitler olarak daha sıkı bir şekilde depolar. Bilgi bir erişim 
kolu ile diskten okunur. Diske kaydedilen bilgi her satırına bir sıra kayıt numarası atanan 
satırlara rasgele yerleştirilebilir. Bu tür kütüklere de Rastgele (Doğrudan) Erişimli Kütükler 
(REK) adı verilir. 


4.1.1 OPEN DEYİMİNİN KULLANIMI 


OPEN deyimi icra edilen bir Fortran deyimidir. Programa bir kütük atama işlemi için OPEN 
deyimi çeşitli özelliklerde kullanılır. Bir disk kütüğünün bazı özelliklerinin OPEN deyiminde 
belirlenmesi aşağıda verilmektedir: 


1. Bir kütüğün cihaz birim numarası UNIT tanımlanmalıdır. Örneğin, cihaz numarası 
UNIT-10 olan bir girdi kütüğünden veriler READ (10, .. ) deyimiile okunur. UNIT-12 
olarak tanımlanan bir çıktı kütüğünde kullanılan WRITE deyimleri WAITE(12,..) 
şeklinde olduğunda çıktılar bu kütüğe kaydedilir (Standard olarak girdilerin ekran veya 
klavyeden girilmesinde cihaz numarası 5, çıktıların ekrana verilmesinde 6'dır). 


2. Kütüğün kullanım türü (girdi/okuma veya çıktı/yazma kütüğü mü?) belirtilir. 
3. Girdi veya çıktı kütüğün diskte kayıtlı olduğu adı tanımlanır. 
4. Sıradan veya rasgele erişimli kütük olarak mı hazırlanmış olduğu belirtilir. 


5. Boşlukların boşluk ya da sıfır olarak mı değerlendirileceği belirtilebilir. 


OPEN deyiminin genel şekli aşağıda verilmiştir: 


OPEN (UNIT-u, ERR-s1, FILE-fname, STATUS-stat, FORM-form, & 
IOSTAT-—io, ACCESS—acc, BLANK>bink, ACTION-action, & 
POSITION-konum, PAD-pad, RECL-kay) 


BÖLÜM 4. KÜTÜK AÇMA /KAPAMA VE KULLANMA İŞLEMLERİ 69 


e UNIT-u veya sadece u şeklinde kullanılabilir. Burada u bir tamsayı olup açılacak kütüğün 
cihaz veya birim numarası olarak adlandırılır. Bir programa okuma (girdi) veya yazma (çıktı) 
amacıyla açılan her kütüğün bir numarası olması gerekir. OPEN deyiminde kullanılması 
zorunlu olan tek belirteçtir. UNIT anahtar kelimesinin kullanılması zorunlu değildir; ancak 
bu durumda u belirteci OPEN deyiminin ilk belirteci olarak kullanılmalıdır. UNIT anahtar 
kelimesiyle beraber kullanıldığında belirteçlerin içindeki sırası önemli değildir. 


e FILE-kütük ismi. Otuzbir veya daha az karakterden oluşan, ilk karakteri bir harften ibaret 
olan kütük ismidir. Kütük ismi, tek veya çift tırnak işaretleri arasında verilmelidir; yani bir 
alfa sayısal sabit olarak girilmelidir. 


e STATUS-syar. ilgili kütüğün dört durumunu (statüsünü) bildiren alfa sayısal bir sabittir. 

o STATUS-'OLD"' olarak tanımlandığında kütüğün diskte var olduğunu, yani eski 
kütük olduğunu, ve veri okuma amacıyla kullanılacağını belirtir. Dolayısıyla bu 
kütüğün önceden hazırlanmış olması gerekir. 

o STATUS—'NEW' durumunda çıktı yazdırmak amacıyla yeni bir kütük 
oluşturulacağını bildirir. 

o STATUS—'REPLACE' durumunda kütük mevcut olsun veya olmasın yeni bir kütük 

açılır. Kütük mevcutsa, yazılan veriler, eski bilgilerin silinmesine neden olur. 

o STATUS-'UNKNOWN' ile kütüğün statüsünün belirsiz olduğunu (yani hem eski 
(girdi) hem de yeni (çıktı) kütüğü olabilir anlamında) bildirir. 

o STATUS-'SCRATCH' seçeneği çok sayıda veri üreten programlarda, programcı ana 
belleği (RAMi) kullanmaktan veya işgal etmekten ziyade, bunları yardımcı belleğe, 
yani diske, geçici bir süreliğine boşaltarak; bu bilgilere ihtiyacı olduğunda diskten 
okuma yoluna başvurur. Bu verilerin kullanımına ihtiyaç kalmadığında, verilerin yer 
aldığı kütük(ler) silinir. Yani bu seçenek ile açılan kütük, hem çıktı hem de girdi 
kütüğü gibi işlev görür ve program terk edilirken diskten silinir. 


e IOSTAT-io durumu, girdi/çıktı belirteci bir tamsayı olup, hata saptandığında pozitif bir 
tam değer aksi halde s1fır değerini almaktadır. 


e ACCESS-acc. Kütüğün SEK mi yoksa REK mi olarak açılacağını belirtir, acc'nin aldığı 
geçerli seçenekler SEK için 'SEOUENTTAL' ve REK için 'DIRECT' şeklindedir. 


e FORM<-/orm seçeneği ile açılan kütüklere 'FORMATTED' ve 'UNFORMATTED"' değerleri 
atanabilir; kütüğe kaydedilen değerlerin formatlı veya formatsız olacağını belirtir. 
ACCESS—'DIRECT' seçeneği ile beraber /orm belirtilmemişse 'UNFORMATTED', 
ACCESS-'SEÇUENTIAL' ise ve form belirtilmemişse 'FORMATTED' olarak işlem 
görür. 


e RECL-kay, kaydın (formatlı veya formatsız) sabit uzunluğunu tanımlar; sadece doğrudan 
erişimli kütüklerde kullanılır; yani, seçenek ACCESS—'DIRECT' ile kullanılır. Örneğin, 
RECL-80 ifadesinde bir satırın maksimum uzunluğunun formatlı kayıtlar için 80 karakter, 
formatsız kayıtlar için 90 bayt olduğu anlaşılır. 


e BLANK-bink, bir karakter ifadesi olup 'ZERO' ile boşlukların sıfır ve 'NULL"' ile boşluk 
olarak algılanmasına yarar. Bu seçenek kullanılmazsa, karakterler arası boşluklar “boşluk” 
olarak kabul edilir. 


e ACTION-—aciion, skalar otomatik CHARACTER ifadedir. Dosyanın sadece girdi amacıyla 
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bağlanması halinde “okuma” (ACTION-—'READ'), sadece çıktı olarak açılması halinde 
“yazma” (ACTION-'WRITE', hem okuma hem de yazma durumunda ACTION 
'READWRITE' seçeneğini alır. 


e POSITION-konum, kütük açıldıktan sonra, diskten kütük bilgisi okuyan ucun konumunu 
belirtir. Konum için kullanılabilen seçenekler, 'REWIND', 'APPEND' ve 'ASIS'dir. 
REWIND seçeneğinde okuyucu kütük başındaki ilk kayda getirilir; APPEND seçeneğinde 
okuyucu kütükteki en son kayıtın sonuna; ve ASIS ile kütük okuyucu işlemci bağımlıdır. Bu 
deyim kullanılmadığında otomatik ayar seçeneği ASIS'tir. 


e PAD-pad, formatlı girdi kayıtlarının boşluklar içerip içermediğini ('YES', 'NO") belirtir. 
Otomatik seçenek değeri PAD—' YES 'tir. 


Örneğin, 
OPEN (UNIT-—9, FILE—'VERI.DAT') 


veya 
OPEN (9, FILE—'VERI.DAT') 


şeklinde açılan birim numarası 9 olan VERI.DAT kütüğü 


OPEN (UNIT-9, FILE—'VERI.DAT', STATUS—'UNKNOWNN', & 
ACCESS—'SEÇOUENTIAL', BLANK—'NULL') 


ile eş anlamlıdır. 


OPEN (22, STATUS-—'SCRATCH') 


Örneğinde birim numarası 22 olan kütük açılır. Sistem bu kütüğe otomatik olarak bir isim verir. 
Kütük, program içinde CLOSE deyimi ile kapatılırsa veya program sonuna (END PROGRAM 
deyimine) ulaşıldığında otomatik olarak silinir. 


OPEN (UNIT-9, FILE-'a.dat',STATUS-'OLD', & 
POSITION—'APPEND', ACTION-'WRITE') 


Örneğinde birim numarası 9 olan a .dat isimli kütük açılır. Bu kütük statüsü OLD olduğundan 
bilgisayarda (diskette) mevcuttur ve bu kütükten veri okunmasına müsaittir. Kütük statüsü 
APPEND olduğundan, kütük okuyucu son kayıttan sonraki ve EOF işaretinden hemen önceki 
konumdadır. Kütük sadece yazmaya ayarlı, formatlı, sıralı erişimli bir kütüktür. 


4.1.2 IOSTAT SEÇENEĞİNİ KULLANMANIN ÖNEMİ 


Bir kütük açma işlemi başarısızlıkla sonuçlanırsa ve programın OPEN deyiminde IOSTAT 
seçeneğine yer verilmemişse, program bir hata mesajı verir ve çalışmayı durdurur. Büyük 
hacimli ve çalıştırması uzun süren programlarda, bu durum bir çok işlem yapıldıktan sonra 
verilerin kaybolması anlamına gelebilir. Bu nedenle, hatayı izole etmek bakımından OPEN 
deyiminde IOSTAT seçeneğine yer verilmelidir. Böylece kullanıcı programın çalışmaya 
devam etmesini isteyebilir veya uygun bir şekilde sonlandırılmasına olanak verir. 


Genellikle TOSTAT seçeneğinin kullanılması, programcıya daha fazla esneklik sağlar. 
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INTEGER :: istat 
OPEN (UNIT-8, FILE-'TEST.DAT',STATUS-'OLD', IOSTAT-istat) 
! o Hata kontrolü yap... 
IF(istat/-0) THEN 
PRINT*, 'Kütük açma işlemi başarısız oldu! ' 
PRINT*, 'IOSTATZ-',istat 


END IF 


b OPEN ile kütük açma işleminde daima TOSTAT seçeneğini kullanınız! 


4.2 REWIND VE CLOSE DEYİMLERİ 


Bir veri kütüğü kullanırken, bazen bilgisayarın kütük açıldıktan sonra, okuma ucunun (bir iğne 
şeklinde olan bu uç manyetik okuma yapar) kütüğün başına konumlandırılması istenir. Bu 
işlem REWIND deyimi ile yapılır. Genel kullanım şekli, 


REWIND u 
REWIND (u) 
REWIND (UNIT-u, IOSTAT-istat) 


olarak verilmektedir. Burada kullanılan anahtar kelime ve belirteçlerin tanımı daha önce OPEN 
deyimindeki tanımlamalarla uyumlu olmalıdır. u kütüğün cihaz numarasıdır. 


Bir diğer programlama ihtiyacı da, kütüğün program ile ilişkisinin CLOSE deyimi ile 
kesilmesidir. Kütük kapatma işlemi 


CLOSE u 
CLOSE (u) 
CLOSE (UNIT-u, STATUS-statü, IOSTAT-istat) 


şeklinde uygulanır. u kütüğün cihaz numarası olup bu deyimdeki UNIT, STATUS ve IOSTAT 
belirteçleri OPEN deyiminde verilenlerle aynı işleve sahiptir. Ancak, statü 'KEEP' ve 
'DELETE' seçenekleri alabilen bir alfa sayısaldır. Program sonuna ulaşıldığında, açılan 
kütüğün korunması veya silinmesi amacıyla kullanılır. Örnekler: 


OPEN(7,FILE-'A.DAT', STATUS-'OLD') 


READ(7,*) X,Y,2 ! Programdaki ilk READ deyimi 


REWIND 7 
READ (7, *) A,B,C ! REWIND komutundan sonraki ilk READ deyimi 


Burada REWIND deyimi kullanıldıktan sonraki ilk READ deyiminde A—X, B—Y ve C-Z 
olmaktadır. 
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Aşağıdaki örnekte, test .dat" isimli yazdırma amaçlı “yeni” bir kütük açılmıştır. Yazdırma 
işlemleri bittikten sonra CLOSE deyimi ile yazdırmaya karşı kapatılmıştır; yani bu kütüğe yeni 
bir veri yazdırılmak istenirse kütüğün tekrar OPEN deyimi ile yazmaya açılması gerekecektir. 


OPEN(15,FILE-'test.dat',STATUS-'NEW') 
WRITE(15,*) A1l,B,CD,I3 
CLOSE (UNIT-15) 


Aşağıdaki örnekte daha önce açılmış olan 12 numaralı kütük bu deyim ile silinmektedir. Silme 
işleminin başarılı olup olmadığını anlamak bakımından kütük statüsü kullanılabilir. 


CLOSE (UNIT-12, STATUS-'DELETE', IOSTAT-istat) 


ÖRNEK 1: A.DAT kütüğünden veri okuyan, aşağıda verilen Fortran programının çıktısı ne 
olur? A.DAT kütüğünün içeriği aşağıdaki gibi verilmektedir: 


PROGRAM Ornekl 

REAL :: A, B, X, Z, U, V, Y 
OPEN (UNIT-8, FILE-'A.DAT', STATUS—'OLD' ) 
READ (8,*) A, X, Z 

READ (8, *) B 

PRINI*, A, X, Z, B 

REWIND 8 

READ (8,*) U, V 

Y—U#V 

PRINT#, U, V, Y 

END PROGRAM Ornekl 


İlk okuma satırında okunan A, X ve Z değişkenlerine, A.DAT isimli kütükte 1.,-—5. ve 3 
değerleri karşılık gelmektedir. Bundan sonra okunan değer olan B'ye 2. karşılık gelir. REWIND 
deyimi ile okuyucu kol 7. sayısının başında iken kütük başına getirilir (yani 1. 'in başına) ve 
bundan sonra okunan değerler U ve V'ye karşılık gelen değerler sırasıyla 1. ve —5. olur. 
Y2UHV-1.*(-5.) 2-4. olarak hesaplanır. Çıktı da dolayısıyla aşağıdaki şekli alır. 


1.00000 -5.00000 3.00000 2.00000 
1.00000 -5.00000 -4.00000 


Aşağıdaki örnekte 10 birim numaralı ve 'VERI" isimli kütüğün 128 bayt sabit uzunluğundan 
oluşan doğrudan erişimli bir disk kütüğünü tanımlamaktadır. 


OPEN(10, FILE-'VERI', RECL-128, ACCESS—'DIRECT') 


Kütüklerin kullanımlarına ve tiplerine ilişkin karakteristikler Tablo 4.2'de özetlenmiştir. 
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4.3 BACKSPACE DEYİMİ 


Cihaz numarası u ile verilen kütükte okuyucu uç m kaydında bulunuyorsa, bu deyimin 
kullanımı ile göstergenin (/-1).ci kayıda gerilemesine, yani bir kayıt geriye gitmesine, neden 
olur. Bu deyimin genel kullanım şekli. 


BACKSPACE u 
BACKSPACE (u) 
BACKSPACE (UNIT-u, STATUS-statü, IOSTAT-istat) 


şeklinde kullanılır. Buradaki UNIT, STATUS ve IOSTAT belirteçleri OPEN deyiminde 
verilenlerle aynı işleve sahiptir. 


Aşağıdaki örneklerde 8 numaralı kütükte okuma kaydı bir kayıt geriye (bir kayıt genelde 
satırdan oluşur) gider. Cihaz/kütük numarası 10 olan kütükte geriye gitme işleminde 
başarısızlık olup olmadığı TOSTAT ile kontrol edilmektedir. 


BACKSPACE 8 
BACKSPACE (UNIT-10, IOSTAT-istat) 


4.4 ENDFILE DEYİMİ 


Bu deyim sıralı erişimli bir kütükte gelinen konumunda EOF, yani kütük sonu, işaretini koyar 
ve kütüğün kapatılmasını sağlar. Bir kütükte ENDFILE deyimi icra edildikten sonra ne READ 
ne de WRITE işlemleri yapılabilir; bu işlemleri yapabilmek için REWIND veya BACKSPACE 
komutlarının kullanılması gereklidir. Genel kullanım şekli 


ENDFILE u 
ENDFILE (u) 
ENDFILE (UNIT-u, IOSTAT-istat) 


olarak verilmektedir. Bu deyim ile çıktı kütüğüne EOF işareti konur. Sadece sıralı erişimli 
kütüklerde uygulanabilir. 


4.5 INÇUTRE DEYİMİ 


Bir kütük veya giriş/çıkış birimi hakkında kullanıcıya bilgi sağlar. Bu bilgiler; kütüğün mevcut 
olup olmadığını, hangi cihaza bağlı olduğunu, verilere erişimin doğrudan mı yoksa rasgele mi 
oluşu, doğrudan erişimli ise kayıt uzunluğu ve numarası, formatlı veya formatsız oluşu, veriler 
arasındaki boşlukların program tarafından yorumlanma şekli v.b olmaktadır. Bu deyim, kütük 
bir birime bağlanmadan, bağlanırken veya bağlandıktan sonra kullanılabilir. Genel kullanım 
şekli; 
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INOUIRE ( FILE—kütük-ismi, IOSTAT-I/0-durumu, EXIST—-mevcut, & 
OPENED—açıkmı, NUMBER- sayı, NAMED—isimlimi, NAME—isim, 
SEOUENTTIAL—sek, DIRECT—dek, FORMATTED— formatlı, 
UNFORMATTED—formatsız, ACCESS—erişim, FORM—şekil, 
RECL—kayıt uzunluk, NEXTREC—sonraki-kayıt, BLANK—boşluk, 
ACTION—-action, READ-oku, WAITE—-yaz, READWRITE—okuyaz, 
DELIM— karakter, PAD—pad, IOLENGHT—-uzunluk) 


RA RAM AM 


olarak verilmektedir. Buradaki parametrelerin daha detaylı olarak açıklamaları aşağıda 
verilmektedir: 


FILE-kütük-ismi, FILE anahtar kelimesinin o kullanılması zorunludur. Araştırılan 
kütüğün ismi girilir. 


IOSTAT-I/O-durumu, girdi/çıktı belirteci bir tamsayı olup hata saptandığında pozitif aksi 
halde sıfır değerini alır. 


EXIST-mevcut, mevcut bir mantıksal değişkendir. Belirtilen kütüğün bulunamaması 
durumunda .FALSE. aksi halde .TRUE. değerini alır. 


OPENED-—açıkmı, açıkmı belirteci mantıksal bir değişkendir. İsmi belirtilen kütük açılmış 
ise .TRUE. değilse .FALSE. değerini alır. 


NAMED-isimlimi, isimlimi soruşturulan kütüğün ismi varsa .TRUE. yoksa .FALSE. 
değerini alan bir mantıksal değişkendir. 


NAME-isim, kütüğün bir ismi bulunması durumunda ismin atandığı bir alfa sayısal 
değişkendir. 


SEOÇUENTTIAL-sek, sek bir alfasayısal değişken olup erişimin sıralı olup olmadığını bildirir. 
Sıralı ise 'YES', değilse 'NO' veya bir durum bildirmiyorsa 'UNKNOWN' değerini alır. 


DIRECT—rek , rek bir alfasayısal değişken olup erişimin rastgele olup olmadığını bildirir. 
Rasgele ise 'YES',değilse 'NO' veya bir durum bildirmiyorsa 'UNKNOWN' değerini alır. 


FORMATTED-formatlı , formatlı bir alfasayısal değişken olup, kütüğün formatlı olup 
olmadığını bildirir. Formalı ise 'YES', değilse 'NO' veya bir durum bildirmiyorsa 
"UNKNOWN ' değerini alır. 


UNFORMATTED-formatsız , formatsız bir alfasayısal değişken olup kütüğün formatsız olup 
olmadığım bildirir. Formatsız ise 'YES', değilse 'NO' veya bir durum bildirmiyorsa 
'UNKNOWN' değerini alır. Aşağıdaki seçime bağlı belirteçlerin bir değer alabilmesi için 
mevcul - . TRUE. ve açıkmı— . TRUE. olmalıdır. 


NUMBER-—sayı, kütüğün birim numarasını verir. 


ACCESS-erişim, erişim 'SEOUENTTIAL' (sıralı) veya 'DIRECT' (doğrudan) değerleri 
alabilen bir alfa sayısal değişkendir. 
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FORM<şekil, şekil 'FORMATTED' veya 'UNFORMATTED' değerleri alabilen bir 
alfasayısal değişkendir. Aşağıdaki seçime bağlı belirteçlerin bir değer alabilmesi için mevcut 
— .TRUE. ve erişim - DIRECT olmalıdır. 


RECL—kayıt, kayıt tamsayı değişkeni olup kullanılan kayıdın uzunluğunu verir. 


NEXTREC-sonraki-kayıt, ulaşılan kayıttan bir sonraki kayıt numarasını verir. Eğer 
mevcui—.TRUE. ve formatlı—FORMATTED ise BLANK-boşluk belirteci kullanılabilir. 


ACTION-—action, açılan kütüklerin 'READ', 'WRITE', 'READWRITE' ve açılmamış 
kütükler için 'UNDEFINED' değerlerini alır. 


READ—oku, kütüğün sadece okuma erişimli olarak açılıp açılamayacağını gösterir ve 
'YES', 'NO' veya 'UNKNOWN' değerlerini alır. 


WRITE—yaz, kütüğün sadece yazma erişimli olarak açılıp açılamayacağını gösterir ve 
'YES','NO' veya 'UNKNOWN' değerlerini alır. 


READWRITE—-okuyaz, kütüğün hem okuma hem de yazma erişimli olarak açılıp 
açılamayacağını gösterir ve 'YES', 'NO' veya 'UNKNOWN' değerlerini alır. 


DELIM-delim, kütükte karakter belirteci kullanımını gösterir ve 'APOSTROPHE' 
'OUOTE' (“), 'NONE' veya 'UNKNOWN' değerlerini alır. 


PAD-pad, kütüğün boşluklarla desteklenim desteklenmediğini açıklar ve 'YES' 
'NO' değerlerini alır. 


TOLENGTH-uzunluk, formatsız bir kütüğün kayıt uzunluğunu gösterir. 


Tablo 4.2 Kütük tiplerinin karakteristikleri 


Karakteristikler 
Formatlı Formatsız 
Sıralı ASCII karakterler RETURN ile İkilik veri Kayıt işareti ile 
Erişimli sona erer. Değişken-uzunluklu (o ayrılır. (o Değişken Oouzunluklu 
kayıtlar DOS cihazları ve disk (o kayıtlar Sadece disk kütükleriyle 
kütükleriyle beraber kullanıla- (kullanılabilir. Kolaylıkla 
bilir Ekranda kolaylıkla izlene- ogörüntülenemez ve işlenemez 
bilir veya çıktısı alınabilir. Kayıtlar sırayla işlenir 
Kayıtlar sırayla işlenir. (o Formatlıdan daha hızlı okuma 
Genellikle daha yavaş ve yazma 
Doğrudan ASCII karakterler Sabit kayıt ikilik veri Sabit kayıt uzunluğu O 
Erişimli uzunluğu 0 kayıt satır başıdır kayıt satır başıdır Kolaylıkla 


Kolaylıkla görüntülenemez ve 
işlenemez Kayıtlara herhangi bir 
sıra ile Formatlı sıralı disk 
kütüklerinden daha hızlı 


görüntülenemez ve işlenemez 
Kayıtlara herhangi bir sıra ile 
erişilebilir erişilebilir G/Ç da en 
hızlı 
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ÖRNEK 2: Çıktı kütüğü olarak açılması istenen bir dosyanın bilgisayarda mevcut olup 
olmadığını kontrol eden, mevcut ise üzerine yazma işleminin yapılıp yapılmayacağı 
hakkında kullanıcıyı sorgulayan bir program yazınız. 


Bu programı yazarken INOUTRE deyimden yararlanmak gerekir. 


PROGRAM Ornek2 
IMPLICIT NONE 


CHARACTER(LEN-20) :: kutuk ismi 
CHARACTER :: EH 

LOGICAL :: Mevcut mu 

LOGICAL :: Acik miz .FALSE. 


! Kütük açılıncaya kada DO döngüsünde çevir 
KutukAc: DO 


! Çıktı kütüğünün ismini oku 

WRITE (*,*) 'Çıktı kütüğü ismini giriniz: 
READ (*,'(A)') Kutuk ismi 

! Kütük diskte mevcut mu? 

INÇOUTIRE ( FILE-Kutuk ismi, EXIST—Mevcut mu ) 


mevcut: IF ( .NOT. Mevcut mu ) THEN 
! Kütük diskte mevcut değil, yazma amacıyla açılabilir. 
OPEN (UNIT-9, FILE-Kutuk ismi, STATUS—'NEW', & 
ACTION—'WRITE') 
Acik mi - .TRUE. ! Artık kütük açılmış durumda 
ELSE 
! Kütük diskte mevcut. Üzerine yazılsın mı? 
WRITE (*,*) 'Çıktı kütüğü mevcut. ' 
WRITE (*,*) 'Üzerine yazalım mı? (E/H)' 


READ (*,'(A)') EH 

IF( EH-—'h') EH—'H' ! Cevabı büyük harfe dönüştür 
IF( EH-—'e') EHZ—'E' 

yaz: IF ( EH -- 'H' ) THEN 


! Üzerine yazmak üzere kütüğü aç. 
OPEN (UNIT-9, FILE—-kutuk ismi, STATUS-—'REPLACE', & 
ACTION—'WRITE') 
Acik mi — .TRUE. ! Artık kütük açılmış durumda 
END IF yaz 
END IF mevcut 


IF (Acik mi) EXIT ! Acik miz.TRUE. iseçık 


END DO KutukAc 

! Şimdi çıktılar kütüğe kaydedilebilir 

! kütük kapatılıp veriler korumaya alınabilir. 
WRITE (9,*) 'Bu bir çıktı kütüğüdür!' 
CLOSE (9, STATUS-'KEEP' ) 

END PROGRAM Ornek2 
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4.6 NAMELIST 1/0 DEYİMİ 


NAMELIST 1/0 deyiminin kullanımı sabit bir değişken isimlerini okuma ve yazmanın kolay 
bir yoludur. Daima aynı değişken gurubu içinde okunan veya yazılan listeyi içerir. 


Genel kullanım şekli 


NAMELİST / Gurup ismi 1 / Değişken 1 |, Değişken 2, ...| 


olarak verilmektedir. Burada Gurup ismi 1 isim listesinin adı olup bir programda birden 
fazla, ancak farklı isimlerde, gurup kullanılabilir. Programda, ilk icra edilebilir deyimden önce 
kullanılmalıdır. Değişkenler arzulanan sırayla (kütükteki sıraya karşı gelmek kaydıyla) art arda 
virgül ile ayrılarak dizilir. 


İsim listesi kullanımı, formatlı girdi/çıktı kullanımını andırır. Sadece FMT yerine NML 
kullanılır. 


Programda genel kullanım şekli 


WRITE (UNIT—u, NML-Gurup ismi 1, |...1) 
READ (UNIT—u, NML—Gurup ismi 1, |...1) 


olarak verilir. 


Aşağıdaki programda bir isim listesinin kütüğe yazdırılması ele alınmıştır. Bu program 
çıktısında isim listesinin adını (&LISTE) takiben her bir değişkenin ismi ve aldığı değerlerin 
virgül ile ayrılarak belirli bir alana sığdırarak formatsız bir şekilde verildiğine dikkat ediniz. 


PROGRAM IsimListesi 


IMPLICIT NONE 

INTEGER :: i - 11, j - 32 

REAL :: a - —-999., pi - 3.14159 
CHARACTER(LEN-12) :: karakter — 'Denemedir' 


NAMELIST / liste / i, j, karakter, a, pi 
OPEN (8, FILE-'CIKTI.DAT',DELIM-'APOSTROPHE') 
WRITE (UNIT-8, NMLzliste) 

CLOSE (8) 

END PROGRAM IsimListesi 


Programının çıktısı aşağıda verilmiştir. 


&LISTE 1-11, J-32, KARAKTER-'Denemedir',A--999.000000,P1I-3.14159012 


NAMELIST deyimi ile veri okunması, yazdırma işlemi ile aynı şekilde yapılır. Aşağıdaki 
örneği inceleyiniz. 
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PROGRAM isim listesi oku 
IMPLICIT NONE 


INTEGER :: i - 11, j - 32 
REAL :: a - —-999., pi - 3.14159 
CHARACTER(LEN-12) :: karakter — 'Karakter ' 


NAMELIST / liste /i, j, karakter, a, pi 
OPEN (7,FILE-'CIKTI.DAT',DELIM-'APOSTROPHE') 


! Güncellemeden önce NAMELIST yazdır 

WRITE (*,'(1X,A)') 'Güncellemeden önce isim listesi :' 
WRITE (UNIT—*, NML<liste) 

READ (UNIT>7,NML<liste) 


! Güncellemeden sonra NAMELIST yazdır 
WRITE (*,'(I1IX,A)') 'Güncellemeden sonra isim listesi:' 
WRITE (UNIT—*, NML—liste) 


END PROGRAM isim listesi oku 


Programının çıktısı aşağıda verilmiştir. 


Güncellemeden önce isim listesi 

&LISTE 111, Jx32, KARAKTER-'Denemedir',A-—-999.000000,P1-3.14159012 
Güncellemeden önce isim listesi 

&LISTE I—11, J-32, KARAKTER-'Karakter ',A--999.000000,P1-3.14159012 


ÖRNEK 3: Aşağıdaki programda A-1, B-2.,C-3.,X-4. ve Y-5. olduğunda program 
çıktısını bulunuz. 


PROGRAM Ornek3 

IMPLICIT NONE 

REAL :: A, B, C, X, Y 

REAL, DIMENSION(4):: D-(/1.2, 3.4, 5.1, 7.6/) 
NAMELIST/ABC/A, B, C, /LIS/X, Y, D 
READ(6,*) A, B, C, X, Y 

WRITE (6, ABC) 

WRITE (6, LIS) 

END PROGRAM Ornek3 


Program çıktısı 


&ABC A-1.00000000,B-2.00000000,C-3.00000000/ 
&LIS X-4.00000000,Y-5.00000000,D-1.20000005,3.40000010,5.09999990,7.59999990/ 


şeklinde elde edilir. 
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4.7 HARİCİ KÜTÜKLER 


Harici kütükler, disk kütükleri veya disk-olmayan kütükler şeklinde ikiye ayrılırlar. Bu kısma 
kadar bahsedilen kütük açma, kapama v.b işlemler disk kütükleri için verilmiştir. Bu kısımda 
özellikle bahsetmek istediğimiz konu disk-olmayan kütük kullanımıdır ki bunlar cihaz olarak 
adlandırılır. Cihaz ya konsol (monitör) veya işletim sistemi ile tanımlanmış bir cihaz kütük ismi 
olabilmektedir. Bunlar; CON (konsol), AUX (yedek), COMI (iletişim 1), COMZ2 (iletişim 2), 
LPTI, LPT2, LPT3, PRN (yazıcı) veya NUL (boş) olabilmektedir ve FILE< ile kullanılırlar. 


ÖRNEK 4: Doğrudan erişimli formatlı kütük kullanımını içeren bir programın hazırlanması. 


PROGRAM Ornek4 
IMPLICIT NONE 


INTEGER :: i 
INTEGER :: irec 
CHARACTER(LEN-40) :: satir 


! Bir kayıt başına 40 karakterden oluşan doğrudan erişimli bir kütük aç 
OPEN (UNIT—11, FILE—'dek.fmt', ACCESS—'DIRECT', & 
FORM—'FORMATTED',STATUS—'REPLACE', RECL-40) 


! Bu kütüğe 100 adet kayıt girişi yapılsın 
DO i-1,100 

WRITE(11,'(A,I3,A)',REC-i) i, ',ci kayıt girişi' 
END DO 


! Kullanıcı hangi kayıdı görmek istiyor? 
WRITE(*,'(A)') 'Hangi kayıdı görmek istiyorsunuz?' 
READ(*,'(13)') irec 


! Arzulanan kaydı getir 
READ (11, '(A)',REC-irec) satir 


! Kaydı ekranda görüntüle 
WRITE(*,'(A,/,5x,A)') 'Kayıt',satir 


END PROGRAM Ornek4 


erişimli kütüklerde, kütükteki herhangi bir veri kaydına ulaşılabilir veya 
değiştirilebilir. 


YE Sıralı erişimli kütüklere veriler sırayla yazılır ve bu sırayla okunur. Doğrudan 
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ALIŞTIRMALAR 

4.1 Aşağıdaki Fortran deyimler gurubunda hata varsa hataları belirleyiniz. 

(a) INTEGER :: n-15 
OPEN (UNIT-n, FILE-'Dosya.Dat', STATUS-'SCRATCH') 
WRITE (UNIT-n, *) d1,d2 

(b) OPEN(3, 'Dosya.dat','Old') 

(c) OPEN (Unit-24) 

(d) OPEN (UNUT-1.2E4,FILE-'s.dat') 

(e) OPEN (Unit>25,file-”abc.dat”, STATUS—'UNKNOWN"' ) 

(£) OPEN (UNIT-—-11, STATUS-'OLD') 

(g) OPEN (999, FILE-'SCRATCH', STATUS-'NEW') 

4.2 Bir mağazada 435 çeşit ürün satılmaktadır. Mağazaya mal giriş-çıkışının bilgisayarlı bir 
sistem ile yapılması arzu edilmektedir. Ürün adı, fiyat ve stok verileri bir kütükten 
girilmektedir. Stoğu tükenen ürünün varlığını araştıran bir program yazınız. 

4.3 Periyodik tablodaki elementlerin ismi, kısaltılmış ismi, atom numarasından oluşan sıralı 
erişimli bir kütük (veri tabanı) oluşturan program yazınız. Bir elemente ait özellikleri 
NAMELIST ile temsil ediniz. 

4.4 Aşağıda verilen koşulları yerine getirecek Fortran deyimlerini yazınız. Bir kayıda bir 
gerçek sayının yazıldığı GIRDI.DAT kütüğü mevcut olduğunu kabul ediniz. 

a) Birim numarası 15 olan GIRDI.DAT isimli mevcut kütük ile birim numarası 50 olan 
CIKTI.DAT isimli kütüğü okuma ve yazmaya açınız. 

b) GIRDI.DAT'dan kütük sonuna ulaşıncaya kadar verileri okuyunuz. Verilerden 
pozitif olanları CIKTI.DAT kütüğüne kaydediniz. 

e) Girdi ve çıktı kütüklerini kapatınız. 

4.5 Bir dosyadan 500 adet gerçek sayı okuyan ve aritmetik ortalamasını hesaplayan bir 
program yazınız. 

4.6 Bir dizi gerçek sayıyı kullanıcı-tarafından hazırlanmış bir kütükten okuyan, bu sayısal 
değerleri noktadan sonra iki basamak olarak çıktı kütüğüne kaydeden bir program 
yazınız. 

4.7 Kütükismi Veri .dat olan kütükten art arda dizili sonlu sayıda tamsayı bulunmaktadır. 
Bu sayıları kütük sonuna kadar okuyan, sayıların adedini, pozitif olanların adedini 
hesaplayan bir program yazınız. 

4.8 Bir kütükten bir dizi gerçek sayı okunmaktadır. Kütük sonuna ulaşıldığında 5 satır geriye 


gelerek verileri tekrar okuyan bir program parçası hazırlayınız. 
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4.9 Aşağıdaki deyimleri inceleyiniz ve varsa hatalarını tespit ediniz. 


a) 


OPEN(11,FILEZ'A.DAT', STATUS-'new', IOSTAT—hata) 
READ(11,*) Xx, y, z, Xyl 


OPEN (UNI1T-70, FILE-'G.DAT', STATUS-'STRACTH',IOSTAT—-hata) 


OPEN (UNI1T-88, FULE—'VERİ', STATUS-'NEW',& 
ACTION-'READWRITE', IOSTAT-hata) 


INTEGER :: birimz25 

OPEN (UNITZ>birim, FILE—'A.KUT', STATUS-'OLD',IOSTAT-hata) 
READ (25, *) birim 

CLOSE (UNITZ—birim) 


OPEN (UNI1T-45, FILE—'C.TXT',STATUS—'NEW', & 
ACTION—'WRITE', IOSTAT-hata) 

WRITE (45,*) A, B, C 

WRITE(45,*) X, Y 

CLOSE (45) 


4.10 Aşağıdaki programların çıktılarını bulunuz 


(a) 


PROGRAM Soru a 


IMPLICIT NONE !I AA kütüğündeki veriler 
REAL :: A, B, C, D, X 7 O 4. Di 

REAL :: xl, x2, x3, Y Kğ Be 2 

REAL :: YI, Y2 


OPEN(3,FILEZ'AA') 
READ (3,*) A,B,C,D 
X-3,XA1B-C14.*D 
REWIND 3 

READ(3,*) X1,X2,X3 
Y-(X114X24X3) /3. 
REWIND 3 

READ(3,*) YI,Y2 
YIZYIYA 

PRINT*, X,Y,Y1I,Y2 
END PROGRAM Soru a 
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(b) 


PROGRAM Soru b 

REAL A; B; C; DB 

OPEN(2, FILEZ'GIR') 

1-0 

12 READ(2,*) 

1-141 

IF (B<A) 
D—-B 
C-CHD 


A, B 


THEN 


ELSE 
D-A 

ENDIF 

WRITE(*,4) A, B, D 

IF(1/-10) GO TO 12 

WRITE(*,4) C 

4 FORMAT(3(2X,F5.2)) 

END PROGRAM Soru b 


(c) 


PROGRAM Soru c 


4 


P 


G 
3 
4 
4 
6. 
Du 
5 
3 
1 
4 
8 


ir kütüğündeki veriler 
Bis 


NA OG SUB O 


-45.67 


REAL X-3., Y-5., 2-11. 
REAL DX, A, B, U 
INTEGER :: JKL 
OPEN (88, FILE-'ABC.DAT',STATUS—'NEW' ) 
A —X 
DX-0.1*B 
DO WHILE (JK1<20) 
A-A*DX 
JKL-JKLH1 
IF(A<5.) THEN 
U-710.2*P10.33*Y 
ELSE 


U-1.2*7-0.04*P10.33*#Y 
ENDIF 


IF (ABS(U)>5.) U-U-6.0 

DX-DX*HU 

WRITE (88,30) A,U,DX 

END WHILE 

30 FORMAT(/,5X,'-',F10.6,5X,'U-'/,T40,'X-',F12.8/) 


END PROGRAM Soru c 


BÖLÜM 5 


FORMATLI GİRDİ/ÇIKTI HAZIRLAMA 


Bir program yazıldığında, algoritmanın programlanması kadar zaman alan bir bölüm de 
verilerin ekrana veya kütüğe aktarılmasında yapılacak düzenlemelerdir. 


Bir çıktı düzeni hazırlanırken, bu çıktıdaki veriler ile ilgili şu soruların yanıtlanması gerekir: 
Veriler tamsayı, gerçek sayı, alfa sayısal mıdır? Üstel olmayan yada üstel gerçek sayı mıdır? 
Gerçek sayıların ondalık noktasından sonra kaç basamağı yazdırılmak isteniyor? Sayfa düzeni 
nasıl olsun? Alfa sayısalların alan uzunluğu kaç olmalıdır? v.s. İşte bu gibi kararların bir çoğu 
FORMAT deyiminin kullanımı ile alınır. Programlamanın, belki de, en sıkıcı tarafı girdi ve çıktı 
değerlerinin düzenlemesi, yani formatlanması, kısmıdır. 


5.1 FORMATLI G/Ç DEYİMLERİ 


Bu noktaya kadar bahsedilen G/Ç (1/0) deyimleri ekrana hitap eden, asteriks (*) kullanımını 
içeren, READ ve PRINT deyimleriydi. Bu deyimlerin ekranla girdi/çıktı alışverişi dışındaki 
kullanım alanlarına bu kısımda verilmektedir. 


Bir formatlı girdi/çıktı deyiminin girdi veya çıktı olarak tanımlanabilmesi için dört koşulun 
yerine gelmesi gerekir: 


1. READ veya WRITE deyimlerinden birinin kullanımı, yani 


READ (Cihaz,Format) Değişken Listesi 
veya 
WRITE (Cihaz,Format) Değişken Listesi 


şeklindedir. 

2. Kullanılacak cihaz (disk, optik okuyucu, yazıcı, v.s) seçimi; FORTRAN da cihazlara |, 2, 
3,.... n gibi birim (ünite) numarası atanarak yapılır; sistem bilgisayarlarında (main frame 
bilgisayarlarda) girdi ve çıktı birimi numaraları sırasıyla 5 ve 6'dır. 

3. Girilecek veya çıktısı alınacak verilerin düzenini tanımlayan FORMAT deyiminin 
hazırlanması ve kullanılması, 

4. Değişkenlerin girişi/çıkışının, FORMAT sırasına uygun bir şekilde kullanılması 
(listelenmesi). 


Aşağıda FORTRAN'da kullanılan READ deyiminin genel kullanım şekli verilmektedir: 


READ (kontrol Listesi) Girdi Değişken listesi 


Burada kontrol Listesi virgül ile ayrılmış birden fazla belirteçten oluşur. READ deyimi 
ile kullanılan belirteçler ve işlevleri Tablo 5.1?'de verilmektedir: 
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Tablo 5.1: READ /WRITE deyimlerinde kullanılan belirteçler. 
Belirteç Kullanım Amaç Muhtemel 
Değerler 
(UNIT—| /#amsayı değişkeni Girdi Girdi/Çıktı birimi numarası (o İşlemciye bağlı 
tamsayı 
L(EMT—)Jdeyim numarası Girdi Formatlı veri okunurken, 
|(FMT-| karakter ifadesi verilerin yazdırılma 
(FMT—J * düzenini belirlemeye yarar 
IOSTAT-/amsayı değişkeni Çıktı Okuma işlemi sonunda /O O Başarılı -0 
statüsünü belirtir. Başarısız— 
pozitif tamsayı 
Kütük sonuz -| 
Kayıt sonu- -2 
REC-/amsayı değişkeni Girdi Doğrudan erişimli kütükte 
okunacak kayıt numarasıdır 
NML--İsim listesi adı Girdi Okunacak isim listesini 
belirtir 
ADVANCE- karakter ifadesi Girdi İlerleme veya ilerleme Sıralı erişimli 
olmayan 1/O işlemini belirtir o kütüklere hastır 
'YES','NO' 
değerleri alır 
SIZE- /amsayı değişkeni Çıktı İlerleme olmayan /O 


işleminde okunacak karakter 
sayısını belirtir. 


READ deyiminin alternatif bir kullanım şekli de aşağıda verilmektedir. 


READ FMT-—format no, 


<Girdi listesi> 


Bu deyim standart girdi cihazı (kişisel bilgisayarlarda bu cihaz genelde klavyedir; UNIT—* 
veya UNIT-5) için kullanılır. EMT-format, verilerin okunduğu format etiketini belirtir. 
Format etiketi yerine, daha kısa bir format ise, formatın kendisi tırnak işareti arasında yazılır. 


Bazı örnekler, 


READ*, <girdi listesi> 


READ (10, *) <girdi listesi> 


READ (5, *) <girdi listesi> 


READ(*, *) <girdi listesi> 
READ 8, <girdi listesi> 


READ (2,4) <girdi listesi> 
READ FMT-10, Xx, y 


READ 10, x, y 
10 FORMAT(2F9.3) 


Değişkenler virgül ile ayrılır; girdi ekrandan okunur. 
Yukarıdaki ile aynı, yalnız girdi 10 birim numaralı 
kütükten okunur. 

OPEN deyimi ile birim numarası 5 olan girdi kütüğü 
açılmamışsa, READ*, deyimi ile aynı görevi görür. 
Deyim READ*, ileaynı görevi görür. 

Girdi değerleri ekrandan 8 etiket numaralı formata göre 
okunur. 

Girdi listesini birim numarası 2 olan kütükten etiket 
numarası 4 olan format düzeninde okur. 

Etiket numarası 10 olan format düzeninde x ve y'nin 
değerlerini okur. 
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READ '(2F9.3)', x,y Yukarıdaki deyimin tek satırda verilmesidir. 


Alfa-'(2F9.3)' Yukarıdaki örnekle aynı işleve sahiptir. 
READ Alfa, Xx,y 


READ(11,'(3i5) ',REC-kayit) deger Sıralı erişimli kütükten kayit kaydında bulunan 
bilgileri (deger), (3i5) formatında okur. 


Çıktı düzenleme amacıyla kullanılan WRITE deyiminin genel kullanım şekli 


WRITE (kontrol Listesi) <Çıktı listesi> 


olarak verilmektedir. Aynı şekilde kontrol Listesi virgül ile ayrılmış birden fazla 
belirteçten oluşur. Bu belirteçler READ deyimi için verilenler ile aynıdır. 


Çıktı amacıyla kullanılan alternatif bir deyimde PRINT olup, genel kullanım şekli de aşağıda 
verilmiştir:. 


PRINT FMT-format no, <Girdi listesi> 


Bazı örnekler, 


PRINT*, <çıktı listesi> Listeli değişkenler formatsız olarak ekrana yazılır. 

WRITE (8, *) <çıktı listesi> Listeli değişkenler 8 birim numaralı çıktı kütüğüne yazılır. 

WRITE(*,*) <çıktı listesi> PRINT*, deyimi ile aynı işleve sahiptir. 

WRITE (6, *) <çıktı listesi> OPEN deyimi ile birim numarası 6 olan çıktı kütüğü 
açılmamışsa, PRINT*, deyimi ile aynı görevi görür. 

WRITE (2,4) <çıktı listesi> o Çıktılistesini birim numarası 2 olan kütüğe etiket numarası 
4 olan format düzeninde yazar. 

WRITE (UNIT-2,EMT-4) <çıktı listesi> Yukarıdaki örneğin alternatifidir. 

WRITE (2,4, IOSTAT-durum) <çıktı listesi> Yukarıdaki örneğin bir alternatifi olup 
yazdırma esnasında bir hata oluşup oluşmadığı TOSTAT ile 
kontrol edilir. durum0 başarılı yazdırma olduğunu belirtir 


PRINT 10, a, b Format numarası 10 olan format düzeninde x ve y'nin 
10 FORMAT(2F9.3) değerlerini yazar. 

PRINT '(2F9.3)', a, b Yukarıdaki deyimin tek satırda verilmesidir. 
Alfa-'(2F9.3)' Yukarıdaki örnekle aynı işleve sahiptir. 


PRINT Alfa, a,b 


WRITE (11, ' (315) ',REC-kayit) deger Sıralı erişimli kütüğen kayit kaydı olarak 
bilgileri (deger), (3i5) formatında yazar. 


Yukarıda kullanılan girdi/çıktı deyimlerinde, asteriksler yerine formatın kendisi, format 
numarası veya etiketi yazılarak, girdi veya çıktı düzeni formatlı olarak belirlenir. 
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5.2 FORMAT DEYİMİ 


FORMAT deyiminin genel kullanım şekli aşağıda verilmektedir: 


etiket FORMAT(belirteçı, belirteç:;, belirteçs,. . .) 


Burada etiket bir tamsayı olup, bu sayıya format numarası (veya format etiketi) denir; 
FORMAT kelimesi programda herhangi bir sütundan itibaren başlayabilir. Parantez içinde yer 
alan terimler, format belirteçlerinin bir listesidir. Bu belirteçler virgül ile (veya “/” işareti ile) 
birbirinden ayrılır. 


FORMAT deyimi çalıştırılabilir bir programlama deyimi olmadığından (nonexecutable) 
programın herhangi bir yerinde (READ/WRITE deyimlerinin kullanıldıkları yerlerden 
bağımsız olarak) kullanılabilirler. FORMAT deyimiyle üç unsur tanımlanır: 


1. Belirleyici Tipi. Belirteçler değişken veya sabitin gerçek, tamsayı, alfa sayısal v.s tipine 
göre değişir; READ /WRITE deyimlerindeki değişken listesi tipi ile uyumlu belirteçler 
kullanılır. 


2. Alan uzunluğu. Sayısal değerin karakter olarak işgal ettiği veya işgal etmesi arzulanan 
azami uzunluktur. 


3. Ondalık noktasının yeri. Ondalık noktasının yeri alanın sağından itibaren kaç karakter 
geriye yerleştirileceği belirtilir (sadece REAL tipindeki sayılar için kullanılır). 


Format belirteçleri genelde dört guruba ayrılabilir 


1. Dikey konumlamanın yapıldığı format belirteçleri, 

2. Yatay konumlamanın yapıldığı format belirteçleri, 

3. Bir değerin çıktıdaki formatını düzenleyen belirteçler, 

4. Bir formatı veya format parçasını tekrarlı bir şekilde düzenleyen belirteçler 


5.2.1 FORMAT BELİRLEYİCİLERİ-SAYISAL BELİRTEÇLER 
5.2.1.1 GERÇEK SAYILAR—E FORMAT BELİRTECİ 


"EF" format belirtecinin kullanım şekli Ew.d veya £w.d olarak verilmektedir; burada w alan 
uzunluğudur (yani sayının içine sığdırılacağı toplam karakter sayısıdır); bu uzunluğa * işareti 
ve ondalık noktası da dahil edilir, d ise ondalık noktasından sonra arzu edilen hassas basamak 
sayısını ifade etmektedir. Örneğin, A-—1245.127 sayısının çıktısını eksiksiz bir şekilde ve 
formatlı olarak almak istersek, bu sayının karakter olarak uzunluğunu 9 (eksi işareti için |, 1245 
için 4, ondalık noktası için | ve 127 için 3 karakter) ve ondalık noktasından sonraki hassas 
basamak sayısını 3 buluruz. Bu durumda, format belirleyicisi kendiliğinden oluşur: yani F9.3 
olmalıdır. 


Bir başka örnek daha ele alalım: bir programdan parçası aşağıdaki gibi verilmiş olsun. 
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REAL :: xI, Y, 2 
x12—-2.483501 

Y-161.0052 

2-4.0 

WRITE(*,9) x1,Y,2Z 

9 FORMAT(F11.6,F12.4,F5.2) 


Bu programın çıktısı ekranda aşağıdaki gibi gözükür: 


1 2 3 
123456789012345678901234567890 
-2.483501 161.0052 4.00 


NOT: Yukarıdaki çıktıda verilen numaralar bilgisayar çıktısında gözükmez; sadece çıktıdaki 
sütun numarasını belirtmek için bir şablon olarak değerlendirilmelidir. 


Formatlı Girdi/Çıktı da dikkat edilecek bazı hususlar şöyle sıralanabilir: 


LE 


Hem ekrana hem de yazıcıya gönderilen çıktılarda, her satırın ilk sütunu gözükmeyebilir. 
Bilgisayar sistemlerinin çoğu bir çıktı satırının ilk sütununu çıktının dikey olarak 
konumlandırılmasında (Carriage Control) kullanır. Kısacası formatın birinci sütuna çıktı 
gelmeyecek şekilde hazırlanmalıdır! 

REAL sayılar ile çıktı alınırken, çıktıdaki değerler sayıyı belirli bir basamaktan ötesini 
kesme işleminden ziyade yuvarlama yaparlar. Örneğin, 1.867 sayısının F6. 2 ile çıktısı, 
ondalık noktasından sonra iki basamağı göz önüne alacaktır. Bu durumda, çıktı 1.86 
değil 1.87 olarak elde edilir; yani 8?den sonraki 67 kısmı 70'e yuvarlanır. 

Normalde, veriler okunurken bilgisayar sayılar arasındaki boşlukları boşluk olarak okur. 
Buna rağmen bazı bilgisayar sistemleri okuma işleminde boşlukları sıfır olarak algılar. Bu 
durumlar ile karşılaşmamak için programa girilen değerlerin belirtilen formata uygun 
olması gerekir. 

READ ile okunan değer, alan uzunluğuna sığmıyor ve ondalık noktası içeriyorsa, bu 
durumda ondalık noktasının yeri "d" ile belirlenen uzunluğu aşar. Örneğin, 974.735 
sayısı F10.3 olarak verilmiş olsun; bu durumda girdi: 


1 2 
12345678901234567890 
974.73500 


olarak, yani F10.5 şeklinde, görülür. 
Okunan bir sayısal değer ondalık noktası içermiyorsa, F formatındaki d belirteci 10'nun 
negatif kuvveti şeklinde uygulanacaktır. Örneğin, 1234 sayısı F5.2 formatı ile 
okunacak olsun; bu durumda okunan değer 

1234.x10? — (d-2 için) 
olacaktır. Bu nedenle, gerçek sayılara daima ondalık noktasının ilave edilmesi 
unutulmamalıdır. 
Sayısal değerler, belirteci ile belirtilen alanının sağından itibaren hizalanır. Ancak gerçek 
sayıların girdi olarak kullanıldığında ondalık noktasının yeri, format belirleyicisiyle 
belirtilen yerde olsun veya olmasın, sayısal değerin doğru okunmasına neden olur. 
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5.2.1.2 TAMSAYILAR—I FORMAT BELİRTECİ 


I format belirtecinin genel kullanım şekli "Iw" veya "iw"dir; burada w alanın toplam 
uzunluğudur. Bu belirteç, tamsayılar için kullanıldığından, ondalık noktasının yerini belirtmeye 
gerek yoktur. Örneğin, 


INTEGER :: ns27 
READ(5,12) n 
12 FORMAT (19) 


program parçasına girdi değeri aşağıdaki şekilde sağlanmalıdır; yani satırın solundan itibaren 9 
karakterlik alan ayrılır, 27 sayısı en sağ taraftan hizalanarak yazılır. Bu işlem 27'nin 8 ve 9.cu 
sütunları işgal edecek şekilde yazılmasını gerektirir. 


1 
1234567890 
27 


Eğer bu sayı aşağıdaki gibi yanlış format ile girilirse (4 ve 5.ci sütunlara yazılsa), 


1 
1234567890 
27 
boşlukları “boşluk” olarak algılayan bilgisayarlarda, sayı doğru okunur; fakat boşlukları "sıfır" 
olarak yorumlayacağından bu sayı 270000 olarak algılanır. (DİKKAT: Bu problem OPEN 
deyiminde BLANK kullanımı ile çözümlenebilir. BLANK—' NULL' boşlukları “boşluk” olarak 
algılar; BLANK-' ZERO” ise boşlukları “sıfır” olarak algılar. Bu nedenle OPEN deyimi ile 
beraber BLANK belirtcinin kullanımına dikkat edilmelidir.) 


Sayıların bir kütükten programa formatlı olarak teminine ilişkin bazı örnekler aşağıda 
verilmektedir (sol sütunda kütükteki sütun sırasını vermektedir). 


1 Format READ işlemi 
1234567890 Belirteci Sonucu 
5432 14 0000 
5432 110 5432 
5432 123 14, 14 5432 ve 0123 
1234 110 12340000 
123.45 E5Dulp EB.2 0.01 ve 23.45 
123.45 F10.2 123.45 
123.45 F10.0 0123.4500 


REAL ve INTEGER sayıların yazılması (WRITE ile) sırasında ortaya çıkan sayıların içine 
sığabileceği alan uzunluğu yeterli olmalıdır. Eğer alan genişliği w yetersiz ise alan uzunluğu 
asteriks (*) ile doldurulur. (Ancak farklı derleyiciler başka karakter kullanabilir!) Örneğin, 
A-678.901 ve I-12345 sayılarının, sırasıyla F5.3 ve 14 formatına göre, çıktıları ***** 
ve **** ile sonuçlanır. 
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Aşağıda tamsayıların formatlı çıktılarına ilişkin bazı örnekler verilmiştir: 


Format WRITE sonucu 
Belirteci 1 
Tamsayı 1234567890 
—123 16 —1L23 
88 110 88 
786 110 786 
—-23456 L5 e 


Burada-23456 sayısı, I5 alanının içine sığamadığından çıktısında * * ** * yazılmasına neden 
olmuştur. 


Görüldüğü üzere programa formatlı girdi temininde format belirteçleri ile ortaya konan 
kurallara kesinlikle uymamız gerekir; aksi takdirde, programa veri okutma esnasında, 
bilgisayara yanlış veri temin etmiş oluruz. Bu durumu fark edinceye kadar oldukça fazla zaman 
kaybetmemek ve bir otomatik kontrol sağlamak amacıyla programa ekrandan veya kütükten 
girilen bütün verileri ekrana veya bir kütüğe yazdırınız; girdilerin doğruluğunu kontrol ediniz. 
Verilerin programa sağlıklı bir şekilde temin edildiğinden emin olduktan sonra, programdaki 
ekrana yazdırma deyimlerini iptal edebilir veya silebilirsiniz. 


3 Programa ekrandan veya kütükten girilen tüm verileri, ekrana veya çıktı 
) m kütüğüne yazdırınız. Girilen veriler ile çıktıdakilerin aynı olup olmadığını 


kontrol ediniz. 


5.2.1.3 GERÇEK SAYILAR—E FORMAT BELİRTECİ 


Bilimsel (scientific) sayı formatı olarak bilinen "E" format belirleyicisinin kullanım şekli Ew.d 
olarak verilmektedir; burada w ondalık noktası, sayının işareti (* veya —) ve üstel kısım dahil 
olmak üzere sayının işgal ettiği karakter sayısıdır; d ise ondalık noktadan sonra arzu edilen 
basamak sayısıdır. Üstel şekilde 4x10” veya eksponesiyelli bir gerçek sayı, örneğin 
—0.12345x10 9, tipik olarak -0.12345E-06 şeklinde yazılır. Bu sayının alan uzunluğu (w) 
12 ve noktadan sonraki basamak sayısı (d) 5 dir. Herhangi bir sayının çıktısında kullanılması E 
formatı için w>d*t7 olmalıdır. Girdilerde kullanılan E formatının değeri alanın sağından 


itibaren hizalanarak yerleştirilir. Üstel kısımdaki rakam en fazla iki basamaklı tamsayı 
olmalıdır. Eğer E format belirteci unutulursa, bilgisayar bunu F formatı olarak algılar. 


5.2.1.4 GERÇEK SAYILAR—ES FORMAT BELİRTECİ 


FORTRAN 90/95'in yeniliklerinden olan "ES" format belirtecinin kullanım şekli ESw.d 
olarak verilmektedir; burada w ondalık noktası, sayının işareti (* veya —) ve üstel kısım dahil 
olmak üzere sayının işgal ettiği karakter sayısıdır; d ise ondalık noktadan sonra arzu edilen 
basamak sayısıdır. Kullanım şekli aynı E format belirtecinde olduğu gibidir; ancak aralarındaki 
fark E formatında 0 ile | arasında değişen bir sayı 10'un kuvveti ile çarpılı verilirken, ES 
formatında 1 ile 10 arasında değişen sayı çarpı 10'un kuvveti şeklinde verilir. Örneğin 
—0.12345x10* sayısı, E12.5 format belirteci ile —0.12345E—-06 şeklinde yazılırken, 
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ES12.5 format belirteciyle —1.23450E-—07 şeklinde yazılır. Aynı E format belirtecinde 
olduğu gibi, ES formatı için w>d*t7 olmalıdır. 


5.2.1.5 GERÇEK SAYILAR—EN FORMAT BELİRTECİ 


FORTRAN 90/95'in yeniliklerinden olan mühendislik (ENgineering) "EN" format belirtecinin 
kullanım şekli ENw .d olarak verilmektedir; burada w ondalık noktası, sayının işareti (* veya —) 
ve üstel kısım dahil olmak üzere sayının işgal ettiği karakter sayısıdır; d ise ondalık noktadan 
sonra arzu edilen basamak sayısıdır. Kullanım şekli aynı ES format belirtecinde olduğu gibidir; 
ancak aralarındaki fark EN formatında | ile 1000 arasında değişen bir sayı 10'un kuvveti ile 
çarpılı verilirken, ES formatında | ile 10 arasında değişen sayı çarpı 10*un kuvveti şeklinde 
verilir. Bu format belirtecinin mühendislikte kullanım nedeni 10, 10, 103, 109 çarpımlarının 
birim dönüşümleri anlamları vardır. Örneğin, | gram-10 kg veya 1 kg-10? gram gibi bir çok 
birimin bir biri cinsinden ifadesinde 1000'in katları söz konusudur. 


Çok büyük veya çok küçük sayıların çıktısını alırken ES formatını 
kullandığınızda sonuçlar daha anlaşılır olur. 


Aşağıdaki program parçası örneğini ele alırsak, 


REAL :: a-0.00123, b-234.45, c-0.12345 
WRITE(X*,100) a, b, c 

WRITE(X*,200) dâ, b, € 

WRITE(X*,300) dr bı € 

100 FORMAT(E12.3, E16.5, E16.6) 

200 FORMAT(ES12.3,ES16.5,ES16.6) 

300 FORMAT(EN12.3,EN16.5,EN16.6) 


programının çıktısı 


1 2 3 4 
123456789012345678901234567890123456789012345 
0.123F-02 0.23445K103 0.123450E400 
1.230E-03 2.34450E4402 1.234500E-01 


1.230E-03 234.45000E400 123.450000E-03 
olarak elde edilir. 
5.2.1.6 MANTIKSAL SAYILAR—L FORMAT BELİRTECİ 


LU format belirteci mantıksal verilerin çıktısında kullanılır ve Lw şeklinde verilir. Burada w 
mantıksal değişkenin görüntülenmesi için ayrılan alan uzunluğudur. Bir mantıksal değişkenin 
alabileceği değerler . TRUE. veya .FALSE.'dır. Mantıksal değişkenlerin çıktıları, w ile 
ayrılan alana sağdan hizalanarak ya T (£rwe) yada F (false) olarak yazılır. Örneğin, 


LOGICAL :: cikti-.TRUE., kapali-.FALSE. 
WRITE(*,40) cikti, kapali 
40 FORMAT(' ',L5,L7) 
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programının çıktısı 


1 2 
12345678901234567890 
T F 


olarak yazılır. 
5.2.1.7 GERÇEK SAYILAR—P Format Belirteci 


Gerçek sayılı değişkenlerin format belirteçlerini etkileyen bir ölçü faktörü oluşturur. Kaç 
basamaktan sonra virgül ayrılacağını belirler. Genel kullanımı nP şeklinde olup n bir işaret (* 
veya -—) ve bir tamsayıdan oluşur. E, D, F, ES ve EN format belirteçlerinin önüne yazılarak 
kullanılır. 


Girdi/çıktı deyimleri değerlendirilirken n ölçü faktörü sıfırdır. Ölçü faktörü bir kez belirlendi 
mi, program boyunca E, F ve ES format belirteçleri bu ölçü faktörüne uyarlar. Örneğin 


100 FORMAT(F3.1,2PE11.4,110,e18.14,f11.3) 
110 FORMAT(-3PF8.2,F10.1,1PE12.5,e18.14,-1PF11.3,F12.2) 


Formatlarından etiket numarası 100 olan formatta P'nin kullanıldığı ilk yer 2PE11.4 dür. 
Bunu takip eden diğer format belirteçlerden (F3.1 ise kullanımdan önce yer aldığı için) 
bundan etkilenmez iken, diğer belirteçler; yani E18.14 ve f11.3, 2P belirtecinden etkilenir. 
Etiket numarası 110 olan formatta F10.1, —3P; E18.14, 1IP ve F12.2 de -1IP 
belirteçlerinden etkilenirler. 


n ölçü faktörü, çıktı değerlerinin 10» ile çarpılmasına ve üstün n kadar eksiltilmesine sebep 
olur. Örnek, 

REAL :: A-0.0012345, B-0.654321 

WRITE(*,8) A,B 

8 FORMAT(42P,E14.5,2X,E14.5) 


programının çıktısı 


1 2 3 
123456789012345678901234567890 
12.3450E-04 65.4321E-02 


olarak elde edilir. Bu çıktıda ondalık noktası ile E arasında 4 basamak olduğuna dikkat ediniz. 
Bunun nedeni ondalık noktasının solunda iki basamak olmasından kaynaklanmaktadır. Ondalık 
noktasının solunda üç basamak olsaydı; yani 8 no'lu formatta #42 yerine *3 koysaydık, bu 
durumda sayılar A-123.450E—05 ve B-654.321E-03 olurdu. Bu değerlerin 
A-1.23450E-03 ve B-6.54321E-01 olarak yazdırılması istenirse, bu durumda 8 
numaralı format deyimindeki *2P belirteci #*1P olarak değiştirilmelidir. Bazen bir format 
deyimi içinde P belirteci farklı birkaç durumda kullanılmak istenebilir; yani değerleri tek bir 
format deyimi ile A-123.450E—-05 ve B-0.00654E102 olarak yazdırmak istersek, bu 
durumda format deyimi aşağıdaki şekilde yazılabilir. 


8 FORMAT(3PE14.5,2X,-2PF14.5) 


Bu format tarzı ile birinci format belirleyicisi ondalık noktasının ilk üç rakamdan sonra 
konulmasını, ikincisinde de iki basamak geriye gidilerek konulmasını belirtmektedir. 
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5.2.8 DİĞER FORMAT BELİRTEÇLERİ 


B, O ve Z format belirteçleri binray (ikilik), Octal (sekizlik) ve Hekzadesimal (on altılık) 
düzendeki sayıların formatında kullanılır. Kullanım şekilleri 


Bw.d Bw 
Ow.d Ow 
Zw.d Zw 


olabilmektedir; burada w ve d'nin anlamları önceki format belirteçleri ile aynıdır. 


INTEGER :: azl16, b>-1 

WRITE(*,100) 'İkilik düzen s *şaşb 
WRITE(*,200) 'Sekizlik düzen : ',a,b 
WRITE(*,300) 'Onaltılık düzen: ',a,b 
100 FORMAT(1Ix,A,B16,1x,B16) 

200 FORMAT(1x,A,011.4,1x,011.4) 

300 FORMAT(1Ix,A,Z8,1x, 28) 


programının çıktısı 


1 2 3 4 5 
12345678901234567890123456789012345678901234567890 
İkilik düzen : 10000 #AAAAKAKAKAKAKAX 
Sekizlik düzen : 0020 377771717717177 
Onaltılık düzen: 10 FFFFFFFF 


olarak elde edilir. B16 format belirteci —1'in temsil edilebilmesi için küçüktür; bu nedenle 
yazdırma alanı asteriks ile doldurulmaktadır. 


5.2.2 KONUM TANIMLAYICILAR 
5.22.1 DİKEY KONUMLAMA 


FORTRAN'da yazıcıdan kağıda çıktı aktarırken, dikey konumlandırma yapmak mümkündür. 
Bunlar format deyiminin ilk sütununa yapılan karakter atamaları ile sağlanır. 


va Boşluk Kağıdı tek satır atlatarak çıktı verir 

'0' O (sıfır) Kağıdıçift satır atlatarak çıktı verir 

vw” 1 Bir sonraki kağıdın başından itibaren çıktı verir 

ve! t Kağıdın ileriye sarılmasını durdurur (Kağıt, 
çıktılar yazıldıktan sonra sabitlenir) 


Bu dikey konumlayıcılar '1' gibi alfa sayısal olarak verilebilirler. Örneğin, aşağıda verilen 25 
numaralı formatta '—' alfa sayısal sabit şeklinde tanımlanmıştır. İlk sütuna 0 (sıfır) veya | (bir) 
tamsayısının denk gelmesi de dikey konumlama olarak algılanır. 


25 FORMAT('-',F9.4, v.s başka belirteçler ) 
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ÖRNEK 1: Aşağıdaki programın kağıt üzerindeki çıktısını bulunuz. 


PROGRAM dene 


INTEGER ::'n 
OPEN (8, FILE—'a.dat') 
nx0 
DO WHILE (n<14) 
nant2 
WRITE (*,100) n 
END DO 


100 FORMAT(i2) 
END PROGRAM dene 


Çıktı aşağıdaki şekilde gözükür: 


12345 1. Kağıdın üst çizgisi 
2 
4 
6 
8 
2. Kağıdın üst çizgisi 
0 
3. Kağıdın üst çizgisi 
2 
4. Kağıdın üst çizgisi 
4 


I2 formatı ile n'nin aldığı değerler (2, 4, 6, 8) ikinci sütundan itibaren hizalanarak 
yazılmaktadır. Birinci sütuna herhangi bir sayısal değer gelmediğinden bilgisayar bunu boşluk 
olarak yorumlamakta ve her değeri birer satır atlayarak yazmaktadır. n'nin 10, 12 ve 14 için 
değerlerini yazdırırken, çıktının birinci sütununa 1 gelmekte olup, bilgisayar bunu sayfa atlama 
anlamında yorumlar ve her sayfanın başına sadece ikinci sütundaki değerleri yazar. 


Çıktı formatının birinci sütununa ASLA format belirteci yazmayınız. Hatalı 


sayfa düzeni ve hatalı format oluşturma ile sonuçlanabilir! 


5.2.2.2 BOŞLUK BIRAKMA—X FORMAT BELİRTECİ 


Verilerin gerek girdi gerekse çıktı formatı düzenlenirken boşluk bırakmaksızın yana yana 
yazılmazlar. İki sayısal değer arasında, okunmasını veya yazmasını veya girdi/çıktı 
değerlerinin kontrolünde kolaylık sağlaması açısından, belirli bir miktar boşluk konur. X 
format belirtecinin kullanım şekli nx veya nx olarak verilmektedir. Burada n bir satırda 
bırakılması gereken boşluk sayısıdır; yatay olarak n karakter boşluk koyar. Örneğin, 


INTEGER :: i-l15, j-26, K-723 
WRITE (6,88) i,i,k 
88 FORMAT(1X,12,9X,12,5X,13) 
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Programın çıktısı aşağıdaki şekilde elde edilir: 


1 2 2 
1234567890123456789012345 
15 26 723 
X XXXKKXXXK XXXXX > x boşlukları temsil ediyor 


5.2.2.3 SATIR ATLAMA — “/” FORMATI 


Verilerin yazdırılması esnasında birkaç satır atlatma veya bir satır alta geçmek ve yazdırma 
işlemine devam etmek isteyebiliriz. Bu durumlarda "/" format belirteci, format deyimi içinde 
kullanıldığı yere gelince, yazdırma işlemine devam etmek için bir satır aşağıya geçer. 
Yukarıdaki örnekte, format deyimi aşağıdaki gibi değiştirilirse, 


88 FORMAT(1X,12/2X,12///3X,i13) 


bu durumda elde edilen çıktı, 


1 2 2 
1234567890123456789012345 
15 
26 
boş satır 
boş satır 
723 


şeklinde olur. Burada dikkat edilecek hususlar şunlardır: 
I. Çok sayıda satır atlatmak için n/ şeklinde bir belirteci KULLANILAMAZ! Örneğin dört 
satır atlayıp beşinci satırdan başlatmak için ///// veya 5(/) şeklinde 
kullanmalısınız. 


2. Satır atlatma belirteci */”, diğer format belirteçlerden virgül ile ayrılması gerekmez. 
Ancak önüne ve arkasına virgül konabilir. 


3. “/” işareti belirttiği satırın birinci sütununu belirler. 
5.2.2.4 SÜTUNDAN BAŞLAMA—T FORMAT BELİRTECİ (TAB) 


Girdi ve çıktı düzenlerinde, daktilo veya bilgisayar klavyedeki Tab tuşu fonksiyonuna benzer 
bir işleve sahiptir. Verilerin yazdırılmasında iki veri arasında belirli sayıda boşluk bırakılması 
için kullanılır. Bu formatın kullanımı Tn şeklindedir ve n.ci sütuna gitmeyi belirtir. (Bu 
esnada kaç boşluk bırakılması gerektiğini belirtmemize gerek yoktur!) 


Örneğin, A-1.0, B-2.0, C-3.0 değerleri için 


REAL :: azl., b22., cs3. 

WRITE (6,10) 

WRITE(6,11) a, b, c 

10 FORMAT(2X, 'ÇIKTI TABLOSU') 

11 FORMAT(T6,'DEĞERLER',/,T10,F3.1,/,T10,F3.1,T16,F3.1) 
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Bu durumda elde edilen çıktı: 


1 2 2 
1234567890123456789012345 
ÇIKTI TABLOSU 
DEĞERLER 
10) 
2.0 30 


şeklinde olmaktadır. 
5.2.3 TEKRARLANABİLEN FORMAT BELİRLTEÇLERİ 


Şu ana kadar bahsedilen format belirteçleri (/ ve T formatı hariç) soldan bir tamsayı ile beraber 
boşluksuz yazılarak, programa aynı formatın tekrarlandığı bildirilebilir. Örneğin, 3F6.3 
formatı, bitişik bir şekilde 3 kez F6.3 formatının yazılmasına, yani F6.3,F6.3,EF6.3 
formatına eşdeğerdir. Ayrıca parantez içinde belirtilen bir gurup belirteç kombinasyonu da 
birkaç kez tekrarlanabilir. Örneğin, 


18 FORMAT(6(/),4X,5(/,3X,12,2X,F5.2)) 


formatında 6 satır atlandıktan sonra 4 boşluğu takiben (/,3X,,12,2X,F5.2) formatı 5 kez 
tekrarlanmaktadır. Bu gösterim şekli format deyimlerinin yazılmasında belirgin şekilde 
kısaltılmalara olanak sağlar. 


5.3 METİN GİRDİ/ÇIKTI FORMATI 


Programların bir çoğu sadece sayılardan oluşmaz; bu sayılar ile ilgili açıklamalar, etiketler, 
tablolar v.s. içerebilirler. Metin veya alfa sayısalları sabitler ile değişkenleri de format olarak 
vermek oldukça kolaydır. 


5.3.1 TEK TIRNAK (') VEYA ÇİFT TIRNAK ('') KULLANIMI 


Buraya kadar verilen alfa sayısal çıktı örneğinde alfa sayısallar tek veya çift tırnak kullanımı ile 
kapatılarak aşağıdaki şekilde verilmişti. 


PRINT*, <alfasayısal ve/veya değişken listesi> 


Bir alfa sayısal sabit, yine aynı şekilde tek tırnak veya çift tırnak ile kapatılarak ve diğer format 
belirteçlerden virgül ile ayrılarak FORMAT deyimi içinde kullanılabilir. Alfa sayısal sabit, 
geçerli her tür karakteri (boşluklar dahil) içerebilir ve format deyiminde aynen kullanıldığı 
şekilde çıktıda gözükürler. Örneğin, 


INTEGER :: Guns8, Yil—2005 
WRITE (6,20) Gun, Yil 
20 FORMAT(5X, 'BUGÜN',13,' EYLÜL',16) 
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programının çıktısı 
1 2 3 
123456789012345678901234567890 
BUGÜN O8 EYLÜL Oo 2005 


şeklinde elde edilir. Aşağıdaki şekilde verilen format 


WRITE(6,21) 
21 FORMAT(10X,50('*')) 


10.cu sütundan sonra yan yana 50 adet asteriks (*) ile sonuçlanır. 


1 6 
1234567890123456 . . . 4567890 


kkAk*4*X kkAkAKk*K 


Iz Tek veya çift tırnak işaretleri arasında verilen alfa sayısallarda Türkçe 


karakterler KULLANILABİLİR! 


5.3.2 WRITE VE PRINT DEYİMLERİNDE (*) YERİNE FORMAT KULLANIMI 


PRINT ve WRITE deyimlerinde format, çok karmaşık olmadığı sürece, asteriks'in bulunduğu 
konumda verilebilir. Örneğin, A-2.5, B-3.25 ve 1-12 ile J-47 değerlerinin formatlı olarak 
çıktısı en basit şekli ile ' *' yerine format veya format numarası ile yer değiştirilir. Yani, 


REAL :: A, B 
INTEGER :: I, J 
CHARACTER(LEN-24) :: form 


PRINT 35, A, B, I, J 
WRITE(6,35) A, B, I, J 
35 FORMAT(5X,2(F7.2,2X),/,5X,213) 


program parçası aşağıdaki şekilde de yazılabilir: 


form—'(5X,2(F7.2,2X),/,5X,213)' 
PRINI '(5X,2(F7.2,2X),/,5X,213)' ,A, 
WRITE(6,'(5X,2(F7.2,2X),/,5X,213)') 
PRINT form, A,B,I,J 

WRITE (6, form) A,B,I,J 


B,1I,J 
A,B,I,J 


Burada dikkat edilecek nokta formatın ' işaretleri ile kapsanması ve parantez içinde yer 
almasıdır. Ancak formatın çok karmaşık ve uzun olması halinde, asteriks yerine bu formatların 
verilmesi tavsiye edilmemektedir. 


5.3.3 ALFA SAYISAL—A FORMAT BELİRTECİ 


CHARACTER tipinde tanımlanan bir değişkenin çıktısı alfa sayısal format belirteci aracılığıyla 
sağlanır. Kullanım şekli, Aw veya aw olarak tanımlanmıştır. Burada w karakter ifadenin alan 
uzunluğudur. Örneğin, 
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CHARACTER(LEN—-—15) :: isim*12, soyad 
isim-'AHMET MİTHAT' 

soyad-'ÖZTÜRK' 

WRITE(6,10) isim, soyad 

10 FORMAT(5X,'ADI : ',A,'SOYADI : ',A) 


veya etiket numarası 10 olan formatta A belirteci daha özel olarak 

10 FORMAT(5X,'ADI : ',A12,'SOYADI : ',A15) 
şeklinde maksimum alan uzunluklarını içerecek şekilde yazılabilir. Alan uzunluğu A belirteci 
ile verilmediğinde, alan uzunluğu yazdırılan sabit veya değişkenin CHARACTER ile tanımlanan 


uzunluğunu alır. Bu bakımdan yukarıda 10 numaralı formatların her ikisinin çıktısı aynı olur. 


PRINT deyiminde metin çıktı elde etmek için asteriks yerine aşağıdaki gibi A format belirteci 
kullanılabilir; 


PRINT '(A)', <alfasayısal değişken> 


Örneğin, 
CHARACTER(LEN-1) :: ASTERISK 
ASTERISK- '*' 
PRINT '(A)', ASTERISK 


veya yukarıdaki örnek PRINT deyimi ile aşağıdaki şekilde de ifade edilebilir: 


CHARACTER(LEN-12) :: isim 
CHARACTER(LEN-15) :: soyad 
PRINT '(5X,'ADI:',A, 'SOYADI: ',A)', isim, soyad 


5.3.4 ALFA SAYISAL-(:) ŞARTLI DURMA NOKTASI 


Yazdırma esnasında format belirteçlerinin davranışını değiştirir. WRITE deyimi için, 
sembolü şartlı durma noktası olarak hizmet eder. Eğer yazdırma esnasında iki nokta üst üste 
işareti ile karşılaşıldığında yazdırılacak başka değerler yoksa, WRITE işlemi durdurulur. 
Örneğin, 


REAL, DIMENSION(8) :: x 
x- Y 1.1, 2.2, 3.3, 4.4, 5.5, 6.6, T.T, 8.8 /) 
WRITE (4,100) (i, x(i), i - 1, 8) 


100 FORMAT (/,1X, 'Çıktı değerleri : '/, & 
3(OX,1X( la, s * E8,2)) 

WRITE (*,200) (i, x(i), i — 1, 8) 

200 FORMAT (/,1X,'Çıktı değerleri : '/, & 
(EŞ EXŞİX(T,L12,') — *şE8.2)) 


Programının 200 nolu formatında : sembolü kullanıldığında X (9) değeri olmadığı için bu 
formatın 100 nolu formatta olduğu gibi *X (* kısmının yazdırılmasını engeller. 


98 BÖLÜM 5. FORMATLI GİRDİ/ÇIKTI HAZIRLAMA 


Çıktı değerleri : 
X( 1) — 1.10 X( 2) - 2.20 X( 3) —- 3.30 


X( 4) 4.40 X( 5) — 5.50 X( 6) — 6.60 
X( 7) 7.70 X( 8) — 8.80 X( 


Çıktı değerleri 


X( 1) —- 1.10 X( 2) < 2.20 X( 3) — 3.30 
X( 4) 4.40 X( 5) - 5.50 X( 6) — 6.60 
X( 7) — 7.70 X( 8) — 8.80 


ÖRNEK 2: Bir kişiye ait kişisel bilgileri (adı, soyadı, kilosu, cinsiyeti gibi) ekrandan okuyup 
ekrana formatlı olarak yazan bir program hazırlayınız. 


PROGRAM ornek2 
IMPLICIT NONE 


CHARACTER (LEN-15) :: adi 
INTEGER :: yas 

REAL :: kilo 

CHARACTER (LEN-1) :: cinsiyet 


PRINT *,' Kişinin adını ve soyadını girin ' 


READ *, adi 

PRINLI ** Yaşını giriniz * 

READ *, yas 

PRINT *,' kilosunu kg olarak giriniz' 

READ *, kilo 

PRINT *,' cinsiyetini giriniz (E/K)' 

READ *, cinsiyet 

PRINT *,' KİŞİSEL BİLGİLER : ' 

PRINT * 

PRINT 100, 

PRINT 200, adi, yas , kilo , cinsiyet 

100 FORMAT(4x,'Adı ve Soyadı',4x,'Yaşı',1x,& 

'Kilosu',2x,'Cinsiyeti') 

200 FORMAT(1x,a,4x,i3,3Xx,f£5.2,2Xx, a) 

END PROGRAM ornek2 


5.4 READ/WRITE DEYİMLERİNİN DİĞER ÖZELLİKLERİ 


Bir girdi kütüğündeki veri satır sayısı genellikle bilinmez. Program bazı verileri okur, hesaplar 
yapar, READ deyimine döner ve hesapları veri kütüğündeki veriler bitinceye kadar tekrarlar. 
Buna rağmen, veri kütüğündeki son veri satırından sonra READ deyimi ile okuma yapmaya 
çalışılırsa bir çalıştırma hatası ile karşılaşılır. Bu nedenle READ deyiminin daha geniş kullanım 
şekli, bu hataları önlemek için, aşağıdaki şekilde tanımlanmıştır: 


READ (UNIT—u, FORMAT—- format, REC-kayıt,& 
IOSTAT-istat) <Değişken Listesi> 
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burada IOSTAT-—i stat ile bilgisayar bir okuma esnasında hata ile karşılaştığında programa 
okumanın başarılı veya başarısız olduğunu veya satır veya kütük sonu ile karşılaşıldığını 
bildirir. Böylece programcı söz konusu durumlarla karşılaşıldığında ne yapılması gerektiği, 
icabında program akışını, karşılaşılan durumlara göre tedbir almak amacıyla, başka bir yere 
yönlendirmesine olanak sağlar. REC ise kayıt numarası olup sadece doğrudan (rasgele) erişimli 
kütüklerde belirli bir kayıtın okunması veya kütüğe yazdırılmasında kullanılır. Bazı örnekler 
aşağıda verilmektedir: 


PROGRAM kayitli 
IMPLICIT NONE 
REAL, DIMENSION(100) :: X, Y, A, B, Z, T 
INTEGER :: duruml, durum2, durum3 
OPEN(5, FILE—'KAYIT.DAT',ACCESS—'DIRECT',RECL-80) 
READ (*, 40, IOSTAT-duruml) X,Y 
CALL Okuma Durumu (duruml ) 
READ (5,40, REC-3, IOSTAT -durum2) A, B 
CALL Okuma Durumu (durum2 ) 
READ (*, *, IOSTAT-durum3) Z, T 
CALL Okuma Durumu (durum3) 
40 FORMAT(2X,2F5.0) 
END PROGRAM kayitli 


SUBROUTINE Okuma Durumu (durum) 
IMPLICIT NONE 
INTEGER :: durum 
IF (durum>0) THEN 

PRINI*, ' ** Veri Okuma Hatası İle Karşılaşıldı **' 
LSE IF (durum——1I) THEN 
PRINT*, ' ** Kütük Sonuna Ulaşıldı **' 
LSE IF (durum——2) THEN 

PRINT*, ' ** Satır Sonuna Ulaşıldı **' 
ENDIF 
END SUBROUTINE Okuma Durumu 


Bu programda ilk READ deyimi ile X ve Y değerleri 40 numaralı formata göre okunmaktadır, 
ikincisinde 5 numaralı kütükten 40 numaralı formata göre kayıt numarası 3 olan A ve B 
değişkenlerini okumaktadır. Son READ deyimi ekrandan ve formatsız olarak Z ve T gibi iki 
değişkeni okur. Her okumada, okumanın durumu durum değişkeni ile tamsayı olarak 
programa bildirilir. Okuma Durumu alt programında durumun aldığı değerlere göre, 


okumanın başarılı olması hariç, uyarı mesajı vermektedir. Bu nedenle alt program her 
okumadan sonra kullanılmıştır. 


Diğer taraftan WRITE deyiminin genel yapısı 


WRITE (UNIT-u, FORMAT-format, REC-kayıt, & 
IOSTAT-istat) <Değişken Listesi> 
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olarak verilmektedir. Anahtar kelime ve belirteçlerin anlamı aynıdır. Çıktı esnasında özellikle 
format uyuşmazlığı varsa, çalıştırma hatası adını verdiğimiz bir hata türü oluşacaktır. Hatanın 
nereden kaynaklandığını tespit edebilmek için TOSTAT ile hata mesajı oluşturma olanağı 
mevcuttur. REC seçeneği doğrudan erişimli kütüklerde kayıt numarası REC ile verilen kayıtın 
okunması veya ekrana yazdırılmasında kullanılır. Bazı örnekler: 


WRITE (16, *, REC-5, IOSTAT-durum!) 
WRITE (11, 45, REC-23, IOSTAT-durum5) 


olarak verilebilir. Bunlardan ilki 5 numaralı kaydı 16 numaralı kütüğe formatsız olarak 
yerleştirir, ikincisinde ise 23 numaralı kaydı 11 numaralı kütüğe formatlı olarak yerleştirir. 


Girdi/çıktı deyimleri programcıların uzun zamandan beri karşılaştıkları zorlukların 
kaynaklarından biridir. Kurallar karmaşık, çoğu kez keyfi, ve donanımla sınırlıdırlar. 
Programcıların yaptığı hataların büyük bir kısmını yanlış girdi/çıktı belirteçleri oluşturur. 
Yapılan hataların ciddiyeti ve sayısını minimize etmeye yardımcı olmak için bir kaç hatırlatma 
yapmakta fayda vardır: 


e READ veya PRINT deyimlerinde kullandığınız FORMAT deyimlerinin varlığından 
(programda bir etiket numarası ile tanımlandığından) emin olunuz. 

e FORMAT etiket numaralarını sadece bir kez kullanınız. 

e READ veya PRINT deyiminde kullanılan değişken listesindeki her bir değişkene karşılık, 
FORMAT deyiminde bir belirteç unsur karşılık gelmelidir. Aşağıdaki örnekte FORMAT 
deyiminde, mesela F9.3'ü çıkarırsak, bilgisayar açısından bir belirsizliğe yol açmış 
oluruz. 

REAL :: a, b 

INTEGER :: ic, klm 

READ 45, a, b, ic, kilim 

45 FORMAT(f9.3,e14.3,i5,18) 


Yania—>f9.3,b—>el14.3,ic—>i5vekilm—i8 belirteci karşılık gelmektedir. 


e Değişken tipi (REAL, INTEGER, CHARACTER v.s) ile FORMAT'taki belirteç unsurla 
uyumlu olmalıdır. Yani tamsayı değişkenler için I format belirteci, gerçek değişkenler 
için E, F veya ES format belirteci vb kullanılmalıdır. 

e Bir formattaki format belirteçleri ile bunlara karşılık gelen değişken listesi aynı sayıda 
değil, ancak format tipleri aynı ise, derleyici format tipini kopyalar; bir satıra sığdıramaz 
ise yeni bir satır açar. 


ÖRNEK 3: Bir'den 10'a kadar olan tam sayıların karekökünü, karesini ve küp'ünü hesaplayıp 
bir tablo halinde veren bir program yazınız. 


PROGRAM Ornek3 
IMPLICIT NONE 


INTEGER :: kup l i sayısının kübü 
INTEGER :: i ! İndis değişkeni 
INTEGER :: kare ! i sayısının karesi 


REAL :: kare kok l i sayısının kare kökü 
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! Yeni sayfaya tablonun başlığını yaz 
WRITE (4,100) 
100 FORMAT ('1', T3, 'Karekök, kare ve küp Tablosu') 


! Sütun başlıklarını yaz 

WRITE (*,110) 

110 FORMAT ('0',TA4,'Sayı',T13,'Kare Kök',T29, & 
'Kare',T39, 'Küp') 

WRITE (*,120) 

120 FORMAT(IX,TA4, '——————', T1I3, & 
222222 -——', T29, '———-——' 139, '—-——'/) 


! Arzulanan değerleri hesapla ve ekrana yaz 
DO İ-— 1, 10 
kare kok —- SORT(REAL(İi)) 


kare — i**2 
kup > i**3 
WRITE(*,130) i, kare kok, kare, kup 


END DO 
130 FORMAT (T4, I4, T13, F10.6, T27, 16, T37, 16) 
END PROGRAM Ornek3 


Programın çıktısı aşağıdaki şekilde gerçekleşir: 


Karekök, kare ve küp Tablosu 


Sayı Karekök Kare Küp 
1 1.000000 1 1 
2 1.414214 4 8 
3 1.732051 9 27 
4 2.000000 16 64 
5 2.236068 25 125 
6 2.449490 36 216 
7 2.645751 49 343 
8 2.828427 64 512 
9 3.000000 81 729 

10 3.162278 100 1000 


ÖRNEK 4: Bir'den 10'a kadar olan tam sayıların karekökünü ve küp kökünü hesaplayıp bir 
tablo halinde veren bir program yazınız. 


PROGRAM Ornek4 


IMPLICIT NONE 

INTEGER, PARAMETER :: max boyut - 10 
INTEGER :: j 

REAL, DIMENSION(max boyut) :: deger 
REAL, DIMENSION(max boyut) :: kare kok 
REAL, DIMENSION(max boyut) :: kup kok 
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! Değerlerin karekök ve küp köklerini hesapla. 
DO jJ - 1, max boyut 
deger(j) - real(j) 
kare kok(j) —- sagrt (deger(j)) 
kup kok(j) — deger(j)**(1./3.) 
END DO 
! Her sayıyı, kare kökünü ve küp kökünü ekrana yaz. 
WRITE (*,100) 
WRITE (3,110) (deger(j), kare kok(j), kup kok(j),& 
j > 1, max boyut) 
100 FORMAT('0',20X, 'Karekök ve küp kök Tablosu',/, & 


4X,' Sayı Karekök Küp Kök ', & 
3X,' Sayı Karekök Küp Kök ',/,& 
4X, ' m İyi 
3X, ' 2 


110 FORMAT (2(4X,F6.0,9X,F6.4,6X,F6.4)) 
END PROGRAM Ornek4 


Programının çıktısı aşağıdaki düzende gerçekleşmektedir: 


Karekök ve küp kök Tablosu 


Sayı Karekök Küp Kök Sayı Karekök Küp Kök 

1 1.0000 1.0000 25 1.4142 1.2599 

3 1.7321 1.4422 4. 2.0000 1.5874 

5 2.2361 1.7100 6. 2.4495 1.8171 

7 2.6458 1.9129 8. 2.8284 2.0000 

9 3.0000 2.0801 10. 3.1623 2.1544 
ALIŞTIRMALAR 


5.1 Aşağıdaki deyimlerde varsa hatalı olanları hataları ile beraber tespit ediniz. 


a) READ*; X,Y,Z b) PRINT*, X;Y;Z 

c) READ(5,*4) X2,Y3 d) READ (*) A,AX 

e) READ*, X4Y4Z f) READ (6,5),X,Y 

g) WRITE(*,) X,Y h) WRITE (*,3) X;Y 

i) WRITE(*,*) XİY,Z 3) PRINT*, X,Y,X4Y 
k) WRITE(3,3) X**2 1) WRITE (*,5) 'X—';X 
m)  PRINT*, 'X4Y',X4Y n) PRINT 15,A,B,X,I 


5.2 Aşağıdaki deyimlerde varsa hataları tespit ediniz. 


a) READ(5,10) N,M,L b) READ(5,11) X,N,L,Y 

10 FORMAT(13,15,3X,14) 11 FORMAT(F5.1,F4,13,F10.4) 
c) READ(5,12) X,Y,M,N d) READ(5,13) X,N,L,Y 

12 FORMAT(5X,2F10.3,214) 13 FORMAT(2X,3(F5.2,1X),15) 
e) READ(5,14) X,Y,L,2Z f) READ(5,15) X,Y,Z,T 

14 FORMAT(2E10.2,110.2) 15 FORMAT(5(1X,E12.5)) 

g) READ(5,16) U,IU,Z,NZ h) READ(5,17) A,B,IA,1IB 

16 FORMAT(2(F6.0,1X,13)) 17 FORMAT(1X,2F5.0,1X,215) 
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5.3 READ listesinde uygun değişkenlerin denk geldiğini varsayarak aşağıda verilen FORMAT 
deyimlerinde varsa hatalı olanlarını bulunuz. 


(a) 10 FORMAT(1X,12,F3.0,12,F3.0) 

(b) 15 FORMAT(2X,13,f3.1,2X,F5.1,3X,f£7.4) 

(c) 20 FORMAT(5X,14,e14.4,5x,13,2X,F6.2) 

(d) 25 FORMAT(2X,18,1X,F7.2E102,F4.2) 

(e) 30 FORMAT(T20,15,T25,15,130,F5.1,T40,F5.2) 
(£) 35 FORMAT(//,2(15,2/,F4.2)) 

(g) 40 FORMAT(3X,3(12,F3.1,12)) 

(h) 45 FORMAT(x,5F3.5, 413) 

(i) 50 FORMAT(T15, 2(15, E7.1),2x, 3(14, E8.0)) 
(0) 55 FORMAT(10X,3(2X,f£6.2,17) 

(k) 60 FORMAT(T10,4E5.3,f12.3) 


5.4 Aşağıda verilen WRITE deyimlerinde varsa hatalı olanları tespit ediniz. 


a) WRITE(6,10) A, B, C 
10 FORMAT (4f5.1) 
b) WRITE(6,11) X,X*X,X4**3 
11 FORMAT(5E12.4) 
c) WRITE(6,12) X,L,Y,K 
12 FORMAT(1X,3('X-',e9.2,”K-”,17)) 
d) WRITE(6,13) X,Y,Z,T,U 
13 FORMAT(1X,45('-—'),/,1X,45('—'),/,1X, & 
45('—'),7(1x,e8.1)) 
e) WRITE(6,14) X,'Y—',Y 
14 FORMAT(2X,'X-',F7.3,A2,E11.4) 
f) WRITE(6,15) ”X-”,X, 'Y>',Y 
15 FORMAT(5X,A2,F6.3,/,5X,A2,E11.4) 
g) WRITE(6,16) X,Y,Z 
16 FORMAT(///,4X,”X İN DEĞERI-”,e8.1,/,3F9.3/7) 


5.5 Aşağıdaki deyimlerde X-4.,Y-3.,Z-1./6., 1-4, J-3, K-2 değerlerini aldıklarını 
varsayarak çıktıları bulunuz. 


a) WRITE(6,10) X,Y,Z 

10 FORMAT(2X,F3.1,2X,F2.0,2X,F7.4) 

b) WRITE(6,11) X,Y,Z 

11 FORMAT(/,2X,F7.5,3(/,2X,f6.3,/)) 

c) WRITE(6,12) X,I,I*I 

12 FORMAT(5X,F3.1,'*',1I2,'-',i2) 

d) WRITE(6,13) X*Z,Y,K,J,J 

13 FORMAT(/,4X,f9.6,'*',F6.2,'-',i4,/,3i3) 
e) WRITE(6,14) K,I,J 

14 FORMAT(t12,i1,T22,i1,T28,i1) 
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f) WRITE(6,15) I,J,K 

15 FORMAT(T2,11,15,11,T7,11) 
g) WRITE (6,16) I,J,K 

16 FORMAT(5X,12) 

h) WRITE (6,17) X,Y,Z,1I,J,K 

17 FORMAT(5X,3F8.5,3X,314) 


i) WRITE (6,18) X,I,Y,J,Z,K 
18 FORMAT(2X,4(e9.3,2x,i3,1X)) 


5.6 Bir'den 25'e kadar olan tamsayıları, karelerini, küplerini ve kareköklerini hesaplayıp, 
ekrana yazan bir program yazınız. NOT: Çıktının aşağıdaki formatta olması istenmektedir. 


1 2 3 4 5 
123456789012345678901234567890123456789012345678901 
SAYI KARESİ KÜBÜ KAREKÖKÜ 

1 1 1 1.00000 

2 4 8 1.41421 


5.7 Aşağıdaki deyimlerde X-3.,Y>5.,Z-1./3., 1-3, J-2, K-4 değerlerini aldıklarım 
varsayarak çıktıları bulunuz. 
(a) PRINT '(f£4,0,2x,f4.1,f3.1,2i3)',X,Y,Z,1I,K 


(b) WRITE(6,10) X,Y,1,J 
10 FORMAT(T5,2e9.1,/,2i2) 


(Cc) WRITE(*,'(E5.2,a4)') X,'—X' 
(d) WRITE(*,'(E6G.3,A3,15)') X,'***',I,Y,'———-',gj 
(e) WRITE(6,11) X,1./X,1./X**2,1X7-1. 
11 FORMAT(5(1x,e10.3)) 
(£) WRITE(6,12) 
12 FORMAT(2X,5('*',2X),3('-')) 


(g) WRITE(6,13) X, Y, Z, X*#Y4Z 
13 FORMAT(5X,'X-',F5.2,'Y—',F5.2,*7-',F5.2,/,& 
IX, 'XAYIZ—',E8.5) 


(h) WRITE(*,'(1X,EF5.1,/,1X,12)') X,I,Y,J,2,K 


5.8 Aşağıdaki çıktıyı elde etmemizi sağlayacak sadece tek FORMAT deyimi ile hazırlayınız. 


AAAAA 
AA AA 
AA AA 
AAAAAAAAA 
AA AA 
AA AA 
AAAAMAA AAAAA 


BÖLÜM 5. FORMATLI GİRDİ/ÇIKTI HAZIRLAMA 105 


5.9 Herhangi bir harfi yine kendi harfleri kullanılarak, (5.8).ci problemde verilen ebatta 
yazdıran bir program yazınız. 


5.10Bir eczanedeki 235 tür ilaca sırasıyla l'den 235'e kadar numaradan oluşan kod'lar 
verilmektedir. Bu ilaçlar, sırasıyla Ilac Kodu (13), ilac ismi (A20), 
ilac fiyati (F9.0) olarak ECZA.DAT kütüğünde saklı tutulmaktadır. Bu ilaçlardan 
kodu 1-90 arası olanlar Vitamin, 91-135 arası olanlar Antibiyotik, 136-159 arası olanlar 
Antihistamin, 160-192 arası olanlar Ağrı kesici ve Ateş düşürücüler, 193 ile 235 arası 
olanlar yara pomadları oluşturmaktadır. İlaç firmalarınca aynı hafta yapılan açıklamalar 
ile vitaminlere “013, Antibiyotiklere ©4022, Ağrı kesicilere “018 zam yapıldığını 
belirtilmektedir. Eczacı yeni fiyat listesini 9615 KDV'yi dahil ederek hazırlamak için sizi 
tuttuğunu farzedersek, bu eczacının işini görecek çıktısı aşağıdaki formatta olan bir 
programı nasıl yazarsınız? (x'ler sayının işgal edeceği yazdırma alanını göstermektedir) 


1 2 3 4 5 6 

123456789012345678901234567890123456789012345678901234567890 
Kodu İsmi Fiyatı Kdv TOPLAM 
XXX 9900000000000 0000 000 0 0 XXX.XX XXX.XX XKXKXX.XX 


5.11 Bir bankanın Genel Müdürlüğünün tüketici kredisi veren birimine yapılan başvurular- dan 
şu bilgiler değerlendirmeye almıyor: ISIM (başvuru sahibinin adı ve soyadı, A40), 
Kredi (istediği kredi miktarı, F7.3), Gelir (aylık geliri, F8.2), YIL (geri ödeme 
süresi, 12) gibi bilgiler DATA.DAT kütüğünden okunacaktır. Birimin istediği program, 
başvuru sahibine kredinin verilmesi durumunda geri ödemesi gereken taksit miktarını 
hesaplayacak; bu miktar aylık gelirinin 9055'in altında ise, müşteri kredi almaya hak 
kazanacaktır. Bu durumda ekrana 'Tebrikler!!! Kredi almaya hak 
kazandınız" aksi durumda 'Malesef size kredi veremiyoruz" yazacaktır. 
Aylık taksitler aşağıdaki formülle hesaplanmaktadır. Aylık faizi 9o 5.75 olarak alınız. 


Taksit—kredi * r * ((1.1r) **sure-1.)/(1.1tr) **sure 


Burada r-Faiz/100; Faiz-Aylık faiz, surezkredinin geri ödeme süresi (ay olarak) 
-12*YIL. Kredi almaya hak kazanan müşteri için, diğer bilgileri içeren, bilgisayar 
çıktısının aşağıdaki gibi olması istenmektedir: 


1 2 3 4 5 6 
123456789012345678901234567890123456789012345678901234567890 
ADI VE SOYADI : XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
GELİR : XXXXX.XX YTL 
KREDİ MİKTARI : XXXxXx.XxXx YTL YIL : Xxx FAİZ : 35 x.xx 
TAKSİT :  KEKK.XX YTL 


5.12 Türkiye Elektrik Kurumunda (TEK) çalışan bir mühendisten hazırlanması istenen bir 
program ile ilgili sorular ve veriler şunlardır: Kurumdaki abonelerin isim ve soyadları 
ad ve soyad (A50), adresleri adres (A75), abonenin statüsü (statu kod-statü 
kodu, Mesken için statu kod, işyeri için statu kod:l, I1 formatında), tüketilen 
elektrik enerjisi tuketim KWH (F9.2). Bu bilgiler her ay bilgisayara girilmektedir. 
Kurum, enerjinin kilowatt saatini meskenlere 0.250 YTL'ına, işyerlerine ise 0.225 TL'ına 
satmaktadır. . Mesken abonelerinin aylık tüketimi 120 kwh, işyeri abonelerinin aylık 
tüketimi 265 kwh aştığında, aşan miktara uyguladığı tarife meskenlere *018, 
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işyerlerine 9013 zamlıdır. Hesaplanan ücrete “015 KDV ayrıca ilave edilecektir. Faturaya 
abonenin ismi ve adresi, statüsü, tüketim, tüketim ücreti, KDV ve ödenmesi gereken 
toplam ücret (fiyat-KDV) yazılması isteniyor. 


5.13 Bir fizik öğretmeni uyguladığı yazılı ve sözlü sınavlardan A, B, C, D ve F notları 
vermektedir. Bu notlara karşılık gelen sayısal ağırlıklar sırasıyla 100, 75, 50, 25 ve 0'dır. 
Öğretmen bir dönemde 3 yazılı ve 2 sözlü sınavı uygulamaktadır. Dönem sonu not 
ortalaması hesaplandıktan sonra ortalama değerin en yakın olduğu harf seçilerek dönem 
ortalaması verilmektedir. M kişiden oluşan bir sınıfın dönem sonu notunu harfli sisteme 
göre hesaplayan bir program yazınız. Sınav notlarının da harf olarak girildiğini kabul 
ediniz.Örneğin, yazılıları B, B, A ve sözlüleri A, C olan bir öğrencinin ortalama notu 


(75 475 4-100) 4 (100 4 50) 


5 
olarak bulunur; bu not ortalama 75'e daha yakın olduğundan dönem ortalaması B seçilir. 


—80 


5.14 Bir ilin emniyet teşkilatında sabıkalılara ait bir veri tabanı oluşturulmaktadır. Bu veri 
tabanında sabıkalılara ait adı ve soyadı (ad ve soyad, A40), adresi (adres,A40), 
yaşı (yas, I2), boyu(Boy,F5.2), cinsiyeti (cinsiyet, Al, seçenekler 'E','K'), 
medeni hali (Medeni Hal, I1, Medeni Hal-0 Bekar, Medeni Hall Evli, 
Medeni Ha1-2 Dul, Medeni Hal1-3 Boşanmış), tipi (TIP, A7 seçenekler 'ESMER', 
'SARIŞIN', 'KUMRAL'), saç rengi (Sac. Rengi,A5, 'KAHVE','SARE','SIYAH'), 
göz rengi (Goz Rengi, A5, 'ELA', 'KAHVE', 'MAVİ','YEŞİL') ve suç cinsi 
(Suc Cinsi, hırsızlık—0, dolandırıcılık—I, cinayet-?, gasp-3 v.s gibi) bilgiler olacaktır. 
Bir istatistik gereği; (a) yaşları 18-25, boyu 1.70-1.78 m arasında olan erkek sabıkalıların 
sayısını ve listesini çıkartan program, (b) yaşları 23-29, boyu 1.63-1.72 m arasında olan 
evli ve hırsızlık yapan kişilerin sayısını veren programı yazınız. Program çıktısı aşağıdaki 
şekilde olması istenmektedir. 


1 2 3 4 5 6 

123456789012345678901234567890123456789012345678901234567890 

YAŞLARI 18-25 ARASINDA, BOYU 1.70-1.78 m ARASINDA OLAN 
SABIKALILAR xxx KIŞIDIR. LİSTE AŞAĞIDA VERİLMİŞTİR. 


ie 0. Gi ci SABIKALININ *** 

ADI SOYADI TO XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
ADRESİ TO XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
YAŞ : XX BOY : xx.xx m CİNSİYET : Xx 
MEDENİ HAL : XXXXX TIP : XXXXXXX GÖZ RENGİ: XXXXxXx 
SAÇ RENGİ : KXXXX SUÇ CİNSİ : XXXXXXXXXXXXXX 


5.15 N kişiden oluşan bir sınıftaki öğrencilerin notları z; ve not ortalaması da z ile temsil 
edilmektedir. Bu sınıf için standart sapmayı (s'yi) hesapladıktan sonra öğrencilerin 
notlarına göre aşağıdaki şekilde bir gruplandırma yapılmak istenmektedir 


Not Aralığı Durum 
7—5SX;<Z ORTA 
7S <715 İYİ 


2745Sy;<241.5s ÇOK İYİ 
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1 2 3 4 5 6 
123456789012345678901234567890123456789012345678901234567890 
ADI SOYADI NOT DURUM 
Ahmet TÜRK 67 İYİ 
Mehmet ÖZTÜRK 90 ÇOK İYİ 
Ayşe DEMİR 53 ORTA 


5.16 Yukarıdaki soruda (5.15. soru) notu 0-19, 20-39, 40-59,.... ve 80-100 sınırları 
arasında olan öğrencilerin sayısını (frekansını) veren bir program yazınız. Bilgisayar 
çıktısı aşağıdaki gibi olsun 


1 2 3 4 5 6 
123456789012345678901234567890123456789012345678901234567890 


XXXXXXXXXXxx Dersi İstatistikleri 


ı 

li 

! SINIF MEVCUDU : Xxx 

! SINAVA GİRENLERİN SAYISI GOXXX 
! SINAVA GİRMEYENLERİN SAYISI : Xxx 
! SINIF ORTALAMASI : Xxx.x 
ı 

ı 

I 

ı 

| 

I 


T 


DAĞILIM FREKANSI 


0-19 xx kişi 
20-39 xx kişi 


80-100 xx kişi 


BÖLÜM 6 


İNDİSLİ DEĞİŞKENLER VE DÖNGÜLER 


Bu bölüme kadar verilen FORTRAN deyimleri birçok problemin çözümü için yeterlidir. Buna 
rağmen, bazı problemlerde Fortran'ın diğer özelliklerini tanımadan kolaylıkla çözmek oldukça 
zordur. Örneğin, 100 kişiden oluşan bir sınıftaki öğrencilerin not ortalamasını ve standart 
sapmasını bulmak istersek, programlanması oldukça zor olan bir problem ile karşı karşıya 
kalırız. 


Bu problemde öğrencilerin notunu, hem ortalamayı hem de standart sapmayı hesaplarken 
kullanmak gerekmektedir. Öğrencilerin notlarını programa 


REAL :: Ogrencil, Ogrenci2, ..., Ogrencil00 

READ (65, *) Ogrencil, Ogrenci2, ..., Ogrencil100 

Ortalama-(Ogrencil $* Ogrenci2 $...$* Ogrencil00) /100. 

Sapma-SORT(( (Ogrencil-Ortalama) **2 t...t & 
(Ogrenci100-Ortalama) **2 ) /99.) 


şeklinde okuyabilir; ortalama ile standart sapmayı hesaplayabiliriz. Bu işlemleri uygulayarak 
söz konusu hesapları kodlamak sadece uzun zaman almakla kalmaz, aynı zamanda program 
tarzını çirkinleştirir. Buna bir de programda kullanılması gereken veri sayısı 100'ler ile değil de 
binler ve yüz binlerle ifade etmeye kalktığımızda yaşayacağımız sorunlar daha da çoğalır. 
Matematikte bunca sayıyı indisli olarak ifade ederiz. Bu ifade şekli de programlama dillerine 
uyarlanmıştır. Ortalamanın cebirsel ifadesinden hareketle, 


100 


Ortalama — — > Ogrencif(i) 
100 55 


öğrenci notlarını indisli olarak tanımladığımızda Ogrenci, , Ogrenci,,..., Ogrenci;o, 


yazmak ile problem oldukça basitleşir. İndisli değişken tanımı tip tanımlama kısmında 
DIMENSTON deyimi ile gerçekleştirilir. 


6.1 DIMENSION DEYİMİ 


Daha önce bahsedildiği gibi, derleyici bir değişken ile karşılaştığında, bu değişken için bellekte, 
tipine göre, bir alan ayırır. Bellekteki bu alanın içeriğine ulaşmak için değişken isminin 
kullanılması yeterlidir. Derleyiciye bir değişken için birden fazla bellek alanının ayrılması 
talimatı verilebilir. Böylece bir değişken (indisli olmak şartıyla) birden fazla belleğe ama aynı 
değişken ismine sahip olur; yalnız doğal olarak her bellek alanının adresi farklıdır. 


İndisli (veya boyutlu) değişken tanımlamak için kullanılan FORTRAN deyimi DIMENSTION 


deyimidir. Programda değişken tiplerinin tanımlandığı kısımda, aşağıdaki şekilde tip 
tanımlama ile beraber kullanılır. 


INTEGER, DIMENSION(100) :: ogrenci 
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REAL, DIMENSION(10,15) :: a 
Burada ogrenci değişkeni 100 adet “tamsayı”yılogrenci(1), ogrenci(2),..., 
ogrenci (100) olarakl ve a değişkeni ise 10x15 adet “gerçek sayı”yı Jal(1,11, 
all,2lassşa(lş15)şa(2;l)şa(2ş2) 5. epa(2ş 15) spk lie m7 


a(10,15) | bellekte saklayabilecek alanlar oluşturmaktadır. Ogrenci indisli değişkeni için 
oluşturulan bellek ve adresleri Şekil 6.1'de şematik olarak gösterilmektedir. Her bellek 
adresine sadece bir adet “tamsayı” yerleştirilebilmektedir. Örneğin, 71.inci adresteki değere 
ulaşmak ve bu değeri kullanmak için ogrenci (71) şeklinde indisli değişkenin adresini 
parantez içinde belirtmemiz yeterlidir. 


Şekil 6.1 Bir boyutlu indisli değişkenler için bellek ayırımı. 


Tek indisli değişkenlerin bellek alanlarını bir şeride benzetebiliriz. İki indisli değişkenlerde de, 
Şekil 6.2'de görüldüğü gibi, iki boyutlu (matrislere benzer) şekilde bellek adresi oluşturulur. 
Aslında bu bellek adresleri bizim daha iyi anlamamız için bu şekilde bir benzetme 
kullanılmaktadır; oysa iki ve daha fazla indisli (boyutlu) değişkenlerin gerçek bellek alanları 
Şekil 6.1 ?deki gibi şerit halindedir. Bu kısma ileride değinilecektir. 


j li 
yl 1;2 i İy3 
e 
e 
Ni Te ev 
m e 


Şekil 6.2 İki boyutlu indisli değişkenler için bellek ayırımı. 


İndisli değişkenleri tamsayı, gerçek, mantıksal veya alfa sayısal v.b tiplerde oluşturabiliriz. 
İndisli olması istenilen değişkenler DIMENSTON deyimini takiben parantez içinde ayrılması 
gereken hafıza alanı belirtilmeli veya değişkenin alması arzulanan indis aralığını vermelidir. 
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Genel kullanım şekli 


Tip, DIMENSION (boyut ve alan) :: <Aynı bellek alanına 
sahip değişkenlerin listesi> 


olarak verilmektedir. Burada boyut ve alan indisli değişkenin boyutunu virgül ile 
ayırarak, her indisin bellekte alabileceği üst değeri belirtmekte kullanılır. 


Bazı örnekler: 


REAL, DIMENSION(2,3,1) :: gec, alan 
CHARACTER(LEN-3), DIMENSION(89) :: cevap 
REAL, DIMENSION(100) :: Ogrenci 

REAL, DIMENSION(5, 6) ie A 

INTEGER, DIMENSION(16) :: Kod 

REAL, DIMENSION(5,5,5,5,5,5) :: Tempo 


Yukarıda gec ve alan değişkenleri üç boyutlu 2x3Xx lik “gerçek” sayılardan oluşan indisli 
değişken olarak tanımlanmıştır. Birinci, ikinci ve üçüncü indisler, sırasıyla 1'den başlayarak en 
fazla 2, 3 ve | değerlerini alabilirler. Cevap karakter uzunluğu 3 olan alfa sayısal değişkenine 
89 adet bellek alanı (1'den 89”a kadar) ayrılmıştır. DIMENSTION deyimi ile bir boyutlu/indisli 
Ogrenci değişkeni için bellekte 100 gerçek sayı alanı oluşturulur. Bellekteki ilk alan 
Ogrenci (1) ve sonuncusu Ogrenci (100) olarak değerlendirilir. Parantez içindeki sayı, 
dolayısıyla, pozitif bir tamsayı olmalıdır. Gerçek bir değişken olan A iki boyutlu/indisli bir 
değişken olup, 30 bellek alanı içermektedir; yani a; ; şeklindeki değişkenin i — /-5 ve j - 1-6 
(alan-5x6—30) arasında değişir. Kod tamsayı değişkeni bir boyutludur ve 1'den 16'a kadar 
adreslenen 16 bellek alanı ayrılmıştır. Altı indise sahip Tempo değişkeninin her indisi 1'den 
5'e kadar değerler almaktadır; oluşturulan toplam bellek alanı 5x5x5x5x5x5-15625'tir. 


) m FORTRAN'da bir indisli değişken en fazla 7 indise sahip olabilir. 


6.1.1 TİP VE DIMENSION DEYİMİNİN BİRLEŞTİRİLMESİ 


FORTRAN'da tip tanımlama ve DIMENSTON deyimi aşağıdaki şekilde de kullanılmaktadır. 
Ancak FORTRAN 90/95 dillerinde bu iki deyim tek deyim altında birleştirilmektedir. 


REAL :: KAT 
DIMENSTION KAT(18) 


deyimi 
REAL, DIMENSION(18) :: KAT 


şeklinde birleştirilir. Tamsayı, mantıksal, kompleks veya alfa sayısal olan indisli değişkenler de 
benzer şekilde tanımlanabilir. 
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CHARACTER (LEN—-10), DIMENSION(49):: C 
REAL, DIMENSION(999) :: Vergi, Maas, KDV 
COMPLEX, DIMENSION(55) :: SanalZl, Sanalz2 
LOGICAL, DIMENSION(200) :: Evet Hayir 


” Tip tanımı ile DIMENSTON tanımını ayrı ayrı vermeyiniz. Bu özellik 
) m FORTRAN 77'den kalma bir özelliktir. FORTRAN 90/95'de DIMENSTON ve 


“Tip” belirleme deyimlerini birlikte kullanınız. 


6.1.2 DIMENSION DEYİMİNDEKİ İNDİSİN ALT VE ÜST SINIRLARI 


Tek indisli bir değişkenle DIMENSION deyiminin en genel kullanımı 


Tip, DIMENSION (alt indis:üst indis) :: <indisli değişken> 


olarak verilir. Burada alt indis indisli değişkenin alt sınırı, üst indis indisli 
değişkenin üst sınırını temsil etmektedir. Bu deyimi aynı indis sınırlarına sahip değişken listesi 
takip eder. Alt indis sınırı verilmediğinde, bu sınır derleyici tarafından 1 olarak algılanır. 
Örneğin, 


REAL, DIMENSION(15) :: X 

INTEGER, DIMENSION(-3:12):: cevap 
REAL, DIMENSION(3:23) :: maas 
REAL, DIMENSION(-3:7) :: c 


şeklinde verilmiş olsun. Burada X, değişkeninde indis n—1 ile n—1 5 arasında değişir. cevap 
indisli değişkeni n — —3 ile n -12, maas indisli değişkeninin indisi de n-3 ilen—23 
arasında değişmektedir. c değişkeninde ise indisleri —3”den 7'e değişen,c(-3),c(-2),..., 
c (7) şeklinde, “gerçek” sayılardan oluşmaktadır. 


Diğer taraftan, iki veya daha fazla indisli değişkenlerde her indis aralığı virgül (, ) ile ayrılır ve 
benzer şekilde indis aralıklarının alt ve üst sınırları : ile belirlenir. İki indisli bir değişken için 
genel kullanım şekli aşağıda verilmektedir. 


Tip, DIMENSION(altl:üstl, alt2:üst2) :: <indisli değişken> 
Örneğin, 
REAL, DIMENSTION(5, 7) ss A 
REAL, DIMENSION(-1:3,0:4) :: indisli 


tanımlarında A iki indisli değişken olup, değişken a;; şeklinde yazılabilir. Burada da alt indisler 
verilmediğinden 1 olarak kabul edilir ve indisler i — 1'den 5'e ve j;-1'den 7'ye kadar değişir. 
Diğer taraftan indisli değişkeninin iki indisi olup, bunlardan i, —1 ile 3 ve j'nin O ile 4 
arasında değiştiği bildirilmektedir. 
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İndisli değişkenlerin indisleri aşağıdaki örnekte olduğu gibi değişken atama yapılamaz. 


INTEGER :: N 

READ*, N 

REAL, DIMENSION(N) :: A ! Yanlış 
REAL, DIMENSION(N*1,2*N) :: B ! Yalnış 


Bu geçerli bir tanımlama değildir. Yalnız PARAMETER niteliği kullanılarak, aşağıdaki gibi, 
değişken görünümünde kullanılabilir. Burada PARAMETER deyimi ile atanan N değeri program 
boyunca sabit kalır; değiştirilemez. Aşağıdaki tanımlama geçerli bir tanımlamadır. 


INTEGER, PARAMETER :: N-5 
REAL, DIMENSION (N) :: AMAT 
REAL, DIMENSTON (24N) :: BMAT 
REAL, DIMENSTION (N$H1,2*N) :: CMAT 
veya 
INTEGER, PARAMETER :: alt-10, ust-10 
REAL, DIMENSTION (alt, ust) :: amat 
REAL, DIMENSTION (2*alt, 3*ust):: bmat 
REAL, DIMENSTION (a1lt1t2,ustt5) :: cmat 


şeklinde tanımlama yapılabilir. 


Tip tanımlama kısmında PARAMETER niteliği ile çeşitli sabitlerin program boyunca değeri 
sabit kalır ve bu değeri değiştirilemez. 


INTEGER, PARAMETER :: N-5 
INTEGER :: M>5 
N-N*2 ! Müsaade edilmez çünkü programda N daima 5 olarak kalacaktır 


M-M*2 |! Müsaadeedilir; çünkü M-5 ilk bellek yani başlangıç değeridir 


için tip ve DIMENSTION tanımından önce değişkenin PARAMETER. ile 
verilmesi gerekir. 


Ye İndisli değişkenlerin alt ve üst sınırlarının değişken olarak tanımlanabilmesi 


6.1.3 İNDİSLİ DEĞİŞKENLERİN BELLEKTE DEPOLANMASI 


Program derlendikten sonra, indisli değişken boyutu ne olursa olsun, tamamı bellekte tek sıra 
olarak saklanır. Dolayısıyla, A(4) şeklinde verilen bir indisli değişkenin aldığı değerler 
bellekte sırasıyla a,, a,, a,, a, şeklinde depolanır. İki indisli A (4, 4) değişkeninin ilk indisi 
satır, ikinci indisi sütunu temsil eden bir matris olarak düşünülebilir. 
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Bilgisayar bu değerleri sıralı olarak saklandığından dolayı, bu matrisin değerleri bellekte 
sırasıyla, Şekil 6.I-b de verildiği gibi, 4,/.4,2,4,3.....4,,.4, ,,...Olarak (yani sütunlar arka 


arkaya ilave edilir-Şekil 6.1-a) depolar. 


Bir indisli değişken A(L1I,L2) olarak (buradaki LI ve L2 sabit tamsayı değerlerdir) 
boyutlandırılmışsa, bunun herhangi bir i, 3 elemanın, tek sıralı bellek adresi 


n-i1t (3-1) *L1 


ile verilir. Örneğin, yukarıda verilen A matrisinin (2,3 deki elemanı n—-24(3-1)*410”dur; yani 
değeri onuncu bellek alanında yer almaktadır. Bu saklama şeklinin girdi ve çıktı ifadelerinde 
önemli sonuçları vardır. 


REAL, DIMENSION(5,7) :: A 
WRITE(*,*) A 


şeklinde verilen bir FORTRAN deyiminde A matrisinin değerlerinin ekrana yukarıda belirtilen 
sırayla formatlı veya formatsız olarak yazılmasına neden olur. Benzer şekilde, 


REAL, DIMENSION(5,7) :: A 
READ (*,*) A 


ifadesinde A'nın 35 değeri yukarıda belirtilen bellek adresi sırasıyla konsol veya kütükten okur. 


Üç indisli değişkenler söz konusu olduğunda, A (2, 4,3) gibi, depolama sırası düzlemler 
boyunca olur; her düzlem bir matris gibi düşünülerek bu düzlemdeki sıralama matris sıralaması 
gibi yapılır; sonra diğer düzleme geçilerek bu işlem devam ettirilir (Şekil 6.3-c). Üçüncü indisin 
maksimum değeri, buradaki A değişkeninde 3 tür, düzlem sayısını verir. 


Herhangi bir A(LI, L2, L3) üç indisli değişkenin herhangi bir i, j, k'ıncı elemanının 
bellek adresi 

n-it(j-1) *L11(k-—1) *L1*12 
bağıntısından hesaplanır. 


İndisli, özellikle çok indisli, değişkenlerin kullanımında DIMENSION ile tanımlanan 
maksimum boyut aşılmamalıdır. Örneğin A (100) olarak tanımlanan bir indisli değişkenin 
bellek adresi sayısı 100”dür; bu değişenin A(101) veya A(120) adreslerine veri kaydetmek, 
okumak veya bunlarla işlem yapmak mümkün olmaz. Çünkü söz konusu bellek adresleri 
oluşturulmamıştır. 


6.2 DO DÖNGÜSÜ 


Yapısal programlamanın esas amacı, programın kolaylıkla kodlanabilen ve okunabilen bir 
yapısının olması ve mantığının kolaylıkla takip edilebilmesidir. IF yapısı bu yönde atılan 
önemli bir aşamadır. Sık kullanılan bir diğer döngü de DO döngüsü veya sayaç döngüsüdür. 
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Düzlem2 


Düzlem1 


(e) 
Şekil 6.3 a) Tek, b) Çift, c) Üç indisli değişkenin bellekte depolanma sırası. ifadesiyle 
bulunabilir. 
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6.2.1 DO DÖNGÜSÜNÜN YAPISI 


DO döngüsünün yapısı, girdi deyimi DO olan ve END DO ile kapatılan blok deyim gurubudur. 
DO döngüsünün genel kullanım şekli 


DO indis-min, max, artış 
Deyim 1 
Deyim 2 , 
işlem Bloğu 
Deyimn 
END DO 


olarak verilir. Burada indis döngüde kullanılan sayaç indisidir; sayaç değeri min'den 
başlar ve max değerine kadar artış'lık artırımlarla (yani indisin artırım miktarı) değişir. 


döngüsü içinde yer alan işlem bloğunu 2 veya daha fazla karakter boşluk 
bırakarak içeriden yazınız. 


Pa Programın okunabilirliği ve takip edilebilirliğini kolaylaştırmak amacıyla DO 


DO döngüsünün özelliklerini aşağıdaki şekilde sıralayabiliriz: 


1. Döngü parametrelerinin her üçüde (min, max, artış) sabit, değişken veya 
matematiksel bir ifade olabilir. Değişken veya ifade olması halinde, ifadelerin işlemleri 
önce yapılır; sonra döngü bloğu işlemlerine geçilir. 


m-100 

DO i-1I,m,2 bile 3k w ep Sip 99 
Vi ! değerlerini alır 

END DO 


DO deger-1,2*m—1 
Diş ! deger-1,2,3,. . .,199 
END DO ! değerlerini alır 
INTEGER :: a, b, c, d 
DO JSMIN(a,b),MAX(c,d),MIN(a,b,c,d) 
END DO 


Bu örnekte Fortran arşive fonksiyonları MIN ve MAX kullanılmıştır. 
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DO j-3,-—3,-2 33; İ; <1; -3 
ir ! değerlerini alır 
END DO 


Döngü indisi (indis) ve döngü parametreleri (min, max ve 


artış) TAMSAYI olmalıdır. 


2. DO döngüsü başında indis-min olarak alınır. Eğer indis*artışSmax*indis ise 
program işlem bloğundaki deyimleri icra eder. 

3. DO döngüsünün parametreleri döngü içinde değiştirilmemelidir. Bu kurala döngü 
değişkeni (indis), başlangıç (min), son (max) ve artırım (artış) değerleri dahildir. 
Örneğin, aşağıdaki programda döngünün içinde n, ir ve nmax'ın değerlerini değiştirme 
girişimi bu kuralı ihlal etmektedir. 


DO n-1I,nmax,ir 


nmax-nmaxt3 |! üst sınırı değiştirme girişimi 


ir-irtl ! artırım miktarını değiştirme girişimi 

nzn$t1l I döngü indisini değiştirme girişimi 

ir-3 ! artırım miktarını değiştirme girişimi 
END DO 


4. Her DO deyimine karşılık bir END DO kapatma deyimi eşlik etmelidir! 


DO i-1,10 


DO j-1,25 


END DO 


END DO 


5. Bir sonlu toplam hesaplanırken O. X,, ) indisli değişkenlerden faydalanarak ve DO 


döngüsü kullanarak, basitçe 


REAL :: toplam 
REAL, DIMENSION(50) :: X 
toplam-0.0 
DO i-1,50 

toplam-toplam * X(i) 
END DO 


şeklinde yapılabilir. 
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6. DO döngüsünün içine sadece DO deyimi ile girilir. Asla Go TO deyimi ile döngü içine 
gönderme (yönlendirme) yapılamaz. Aşağıdaki bu kuralı ihlal eden bir program 
verilmiştir. (Fortran 2003'de GO TO deyimi tamamen çıkarılmıştır.) 

GO TO 600 
DO M-1,19 

600 T-TH1X 
END DO 

7. Herhangi bir durumda DO döngüsünden çıkmak EXI'T deyimi ile mümkündür. Örneğin, 
aşağıdaki programda i>-10 koşulu sağlandığında, döngüden çıkış yapılır ve döngü 


sonunda i-10 değerine sahiptir. 


INTEGER :: i 
DO i-1,16 


IF (i>-10) EXIT 
END DO 
WRITE(*,*) i 


8. İşlem bloğunun sonunda END DO'ya ulaşıldığında indis'in bir sonraki değeri 
indis-indistartış ifadesinden hesaplanır Eğer indis*artış halen 
max*indis değerinden küçükse, işlem bloğu icra edilir; değilse döngü işlemleri son 
bulur. 


9. Döngüindisindeartış tanımlanmaz ise, otomatik olarak artış—I olarak alınır. 


10. Döngü bloğu, END DO deyimi ile kapatılır ve döngünün çevirim sayısı, 
SAYI-(max-mintartış) /artış ifadesinden hesaplanabilir. Örneğin, 


DO j-5,17,2 

END DO 
döngüsünde DO-END DO içindeki blokta yer alan ifadelerdeki J değeri 5'ten başlayarak 
17'ye kadar 2'şer artırılır; yani 3 5,7,9,11,13, 15, 17 değerlerini alır. Çevirim sayısı ise 
(17-542) /2-7 olmaktadır. 

DO i-5,4 

END DO 


döngüsünde (5-441) 1-0 olacağından, döngü işlem bloğu atlanacaktır. 
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6.2.2 İNDİS-ÜÇLÜLERİ VE İNDİSLİ DEĞİŞKEN ALT KÜMESİ TANIMLAMA 


Şu ana kadar hesaplamalarda indisli değişkenlerin ve tüm indislerin kullanımına değindi. Bir 
indisli değişkenin alt gurupları veya alt kümesini tanımlamak, bunlarla hesaplar yapmak da 
mümkündür. Bu işlem indis-üçlüleri ile olanaklıdır. Genel kullanım şekli 


indis ilk : indis son : adım 


şeklindedir. Burada indisli değişkenin alt kümesinin ilk indisi indis ilk, son indisi 
indis son ve adım indislere uygulanacak artırım adımıdır. Örneğin, 


INTEGER, DIMENSION(10) :: de-(/1,2,3,4,5,6,71,8,9,10/) 


tanımından hareketlede (1:10:2) altkümeside(1),de(3),de(5),de(7)vede(9) 
içeren bir indisli değişken oluşturur. 


İndislerde kullanılan otomatik işlemler aşağıdaki örnekle açıklanmıştır. 


INTEGER :: iz-3, j7 

INTEGER, DIMENSION(10) :: de-(/1,2,3,4,5,6,7,8,9,10/) 
de(:) ! orijinal indisli değişken (1, 2, 3, ...,9, 10) 
de(i:j) ! Otomatik olarak adım-1 olur. (3,4,5,6,7) 
de(i:j:i) ! adım-3 alınarak(3,6) eldeedilir 

de(i:j:3j) ! adım—7 alınarak sadece (3) eldeedilir 

de(i:) ! 3'den sonrakileradım-1 ile (3,4,5,6,7,8,9,10) 
de(:j) ! 1'den adımz1 ilebaşlar (1,2,3,4,5,6,7) 
de(::i) ! 1'den 10”'akadaradım-3 alınır. (1,4,7,10) 


Ömeğin TERE Tİ) ats:si 
EE ELİ) a:5:2) 


INTEGER, DIMENSTION (8) .: a 
INTEGER, DIMENSION(5,4):: b 


tanımlaması ile oluşturulan indisli b(1:3,2:4) 
değişkenler için, indis üçlüsü kullanımı ile 
hangi bellek alanlarının kullanıldığı yanda 
şematik olarak verilmiştir. 


b(1,:) birinci satırdan oluşan 4 elemanlı 
indisli değişkeni, b (3, :) üçüncü 

satırdan oluşan 4 elemanlı indisli değişkeni b(:,4) 
temsil etmektedir. 
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6.2.3 CYCLE VE EXIT DEYİMLERİ 


WHILE ve DO döngülerini kontrol etme amacıyla kullanılan iki komut CYCLE ve EXIT dir. 
Bir döngüde CYCLE deyimi kullanıldığında, işlem bloğunda yapılan işlemler durdurulur ve 
kontrol döngünün başına gider, ancak döngü indisi artırılır ve döngü, indis üst sınırına henüz 
ulaşmamış ise, kaldığı yerden devam eder. Örneğin, 


INTEGER :: i 

DO i-1,5 
l i3 için döngüyü atla 
IF (i--3) CYCLE 
WRITE(*,*)'iZ',i 

END DO 


programının çıktısında i—1, i—2, i-4, i-5 değerleri görülür; yani CYCLE komutunun icra 
edildiği satır ile END DO arasında kalan kısım atlanmış olmaktadır. 


Bir döngüde EXIT deyimi kullanıldığında, işlem bloğunda yapılan işlemler durdurulur ve 
döngüden sonraki icra edilebilir ilk deyime geçer. Örneğin, 


INTEGER :: i 

DO i-1,5 
! iz3 için döngüden çık 
IF(i--3) EXIT 
WRITE(*,*)'iz',i 

END DO 

WRITE(*,*) 'Program sonu! ' 


programının çıktısı aşağıdaki gibi olmaktadır. 


iz 1 
iz 2 
Program sonu! 


Bir şartlı DO döngüsünde CYCLE ve EXIT kullanımını inceleyelim. Aşağıdaki örnekte 
kullanılan i sayacı 50 <i<59 olduğunda döngü bloğu atlanmakta, / >100 olduğunda 
döngüden çıkış sağlanmaktadır. 


INTEGER :: i 
DO 


İİ 
o 


izitl 
I 50SiS59 için döngüyü atla 
IF (i>-50.AND.i<-59) CYCLE 
! i>100 için döngüden çık 
IF(i>100) EXJIT 
PRINT*, 'i—',i 
END DO 
PRINT*, 'Döngü tamamlandı ve i-',i 
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Program çıktısı 


i I 
iz 2 
iz 49 
iz 60 
iz 100 


Döngü tamamlandı ve i- 101 


ÖRNEK |: N adet sayının aritmetik ortalaması ve standart sapmasını indisli değişken 
kullanarak hesaplayan bir program yazınız. 


PROGRAM Ornekl 
IMPLICIT NONE 
li 


! Değişkenler ve Tanımları 


!I Ortalama - Girilen sayıların ortalaması 

!I SSapma — Sapmaların kareleri toplamı 

Il X — Ortalaması ve Standard sapması hesaplanacak değerler 

! SS — Standard Sapma 

! 

REAL :: N-999 

! En fazla 999 adet veri için hazırlanmıştır 

REAL, DIMENSION(N):: X 

REAL :: Ortalama-0.0, SSapma-0.0,5S 

INTEGER :: I 

PRINT*,' Sayı adedini giriniz' 

READ*, N 

DO I-1I,N 
PRINT*,' Sayının ',N,'ci değerini giriniz' 
READ*,X(I) 
OrtalamazOrtalamatX(I1I) 

END DO 

Ortalama-Ortalama/REAL (N) 

DO I-1I,N 
SSapma-Sapmat(X(I)—ortalama) **2 

END DO 

SS-SORT (SSapma /REAL (N-—1) ) 

PRINT *,' Ortalama -— ',Ortalama 


PRINT *,' Standard sapma 
END PROGRAM Ornekl 


', SS 


6.2.4 İSİMLİ DO DÖNGÜSÜ 


İç içe çok sayıda DO döngüsü kullanıldığında hangi döngünün nerede başlayıp ve nerede 
bittiğini tespit etmek zorlaşabilir. Bu nedenle Fortran 90/95'de döngülere isimler vermek 
olanaklı hale getirilmiştir. Döngüye atanan isim döngünün başında ve sonunda kullanılır. 
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EXIT ve CYCLE komutları kullanıldığında döngü isminin belirtilmesi gereklidir. Genel 


kullanım şekli aşağıda verilmiştir: 


lisim:)J DO indis-min, max, artis 
Deyimler 


END DO jisim)| 


IF (mantıksal ifade) CYCLE Jisim)j 


IF (mantıksal ifade) EXIT jJisim) 


Örneğin, aşağıda iç içe iki döngü (DISdongu ve ICdongu) verilmiştir. Döngülerin nasıl 


isimlendirildiğine dikkat ediniz. 
DISdongu : DO j-1,20 
ICdongu : DO i-1,15 


İçteki Döngü 
END DO 1Cdongu 


END DO DISdongu 


Dıştaki Döngü 


İsimli döngülerin içinde CYCLE veya EXIT komutlarının kullanımını içeren bir örnek de 


aşağıda verilmiştir: 


DonguA : DO 
DonguB: DO 


0 

İ 

2 se 

55 IF (a>b) EXIT DonguA ! 
4: IF (a--b) CYCLE DonguA |! 
5 IF (c>d) EXIT DonguB ! 
6 IF (c--a) CYCLE DonguB |! 
7 END DO DonguB 

8 END DO DonguA 


Satır 9'a atlar 
Satır O'a gider 
Satır 8'e atlar 
Satır Ie gider 


EXIT ve CYCLE komutlarının yanına döngü ismi belirtilmezse, çevirim arzulamadığınız bir 


şekilde gerçekleşebilir. 


6.2.5 İÇİÇE DÖNGÜLERİN YUVALANMASI 


Bir DO döngüsü tamamıyla bir başka DO döngüsü içinde yer alıyorsa, bu şekilde 
yapılandırmaya iç içe döngü yuvalama adı verilir. DO döngüleri birbirleriyle çakışmadıkları 
sürece, sınırsız sayıda döngü yuvalama yapılabilir. Çok sayıda döngü yuvalama yaparken, 
yuvalama hatasına neden olmamak, kolay izlenebilirlik ve okuma sağlamak için her DO 
döngüsünün işlem bloğunun bir kaç karakter içeriden başlatılması ve/veya isimli döngüler 


kullanılması tavsiye edilmektedir. 
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DO döngülerinin doğru yuvalanmalarına ilişkin şematik bazı örnekler aşağıda verilmiştir: 


DO i-1,10 
DO i-1,8 
Sek DO i-1,20 T 
| N DO j-0,51 
DO j-0,12 DO j-1,15 
ii DO k-2,9l 
END DO 
DO k-5,9 
END DO 
DO k-1,21 
ER END DO 
END DO Di END DO 
- END DO 5 
END DO İ 
END DO nn 
İ END DO | 


DO döngülerinin yuvalanmasına ilişkin kurallar IF—END IF yapılarına uygulanan kurallar 
ile aynıdır. Örneğin, 


DO i-1,5 
DO 5-1,3 
PRINT*, i,j 
END DO 


döngüsünde içteki döngünün END DO deyimi eksik olduğundan Unmatched Nested DO 
Construct (Eşleşmeyen DO yuvalanması) şeklinde bir derleme hatası verilir. 


ÖRNEK 2: DO döngüsü kullanarak n/ hesabı yapan basit bir program yazınız. 


DO döngüsünün yapısını öğrendikten sonra bu yapının kullanımıyla n! de ardışık çarpma 
işlemi ile çok kolay bir şekilde hesaplanabilir: 


PROGRAM Ornek2 
IMPLICIT NONE 


! n : faktoriyeli alınacak değer 
! faktoriyel : n! 
li : indis değişkeni 
| 
INTEGER :: i, n, faktoriyel 
READ*, n 
faktoriyel-l1 
DO i-l, n 
faktoriyel-faktoriyel*i 
END DO 
PRINT 20, n, faktoriyel 
20 FORMAT(5x,i3,'1-',2x,i10,' dir') 


END PROGRAM Ornek2 


Bu programdaki çarpma işlemi sayısı (çevirim sayısı) artık n değerine bağlıdır; kıyaslama ve 
sayaç gerektirmemektedir. 
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6.3 GİRDİ/ÇIKTI DEYİMLERİNDE DÖNGÜ KULLANIMI 


Girdi/Çıktı deyimleriyle beraber, normal işlem bloğu dışında, farklı bir şekilde DO döngüsü 
kullanımı daha mevcuttur. 


6.3.1 İMALI DO DÖNGÜSÜ 


Girdi/çıktı deyimleriyle kullanılmak üzere çok özel bir imalı DO döngüsü mevcuttur; indisli 
değişkenlerin konsoldan veya kütükten okutulmasında, örneğin 


INTEGER, DIMENSTION (99) :: tam 
READ (5, *) tam(1),tam(2),...,tam(99) 


şeklinde 99 kez değişkeni vermek zorunda kalabiliriz. Ancak imalı DO döngüsü ile bu 
problemin üstesinden gelebiliriz. İmalı-DO döngüsünün genel kullanım şekli, girdi için 


READ (5,10) (<Değişken listesi>, indis-min,max,artış) 


ve çıktı almak için 


WRITE(6,15) (<Değişken listesi>, indis-min,max,artış) 
PRINT*, (<Değişken listesi>, indis-min,max,artış) 


kullanılır. Burada indis,min,max, artış aynı işlemsel DO döngüsünde kullanılan anlam 
ve işlevlere sahiptir. İmalı döngü parantez içinde yazılmalıdır. Örneğin, 


REAL, DIMENSION(4) :: a 
WRITE(X*,'(1X,4F7.3)') (a(i),i-1,4) 


deyimi ile 
WRITE(*,'(1X,4F7.3)') a(1),a(2),a(3),a(4) 
deyimi işlevsel olarak aynıdır. Örneğin, a(1)-1.12, a(2)-2.24, a(3)-5.68 ve 


a (4) -9. 96 olarak alınırsa, yukarıdaki her iki durumda çıktı 


1 2 3 
123456789012345678901234567890 
1.120 2.240 5.680 9.960 


şeklinde hazırlanır. Yazdırılan sayısal değerler bir satıra sığmıyorsa, çıktılar bir alt satıra 
sarkar. 


Ancak WRITE deyimini, imalı DO döngüsü yerine aşağıdaki gibi, bir işlemsel DO döngüsü 
içine yerleştirdiğimizde, her çıktının az veya fazla olmasına bakılmaksızın yeni bir satır açılır. 
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REAL, DIMENSION(4) :: a 
DO i-1,4 

WRITE(*,'(1X,4F7.3)') ali) 
END DO 


Yukarıdaki örnekte a,, a,, a, , a, çıktısı, aşağıda verildiği gibi, yukarıdan aşağı doğru 
sıralanır: 
1 
1234567890 
1.120 
2.240 
5.680 
9.960 


İki indisli değişkenlerdeki uygulamasına ilişkin bir başka örnek aşağıda verilmiştir: 
REAL, DIMENSION(3,4) :: a 
10 FORMAT(4F8.3) 
WRITE(6,10) ((a(i,j),j3 2 1,4),i - 1,3) 
iç döngü 


dış döngü 


Bu programın çıktı değerleri aşağıdaki düzende olacaktır. 


a;,ş J 
1 2 3 4 
il âyı âı,2 âı,3 âı,a 
- 2 &>,1 &2,2 â2,3 &>,4 
83,1 â3,2 â3,3 â3,4 


Örneğin 


WRITE(*,100) ((i,j,jx1,4),i-1,5) 
100 FORMAT(4(1x,15)) 


programının çıktısı 


1 2 3 
123456789012345678901234567890 
1 1 1 2 1 
3 1 4 2 1 
2 2 2 3 2 
4 3 1 3 2 
3 3 3 4 4 
1 4 2 4 3 
4 4 5 1 5 
2 5 3 5 4 


olarak elde edilir. 


hazırlanmasında dikkatli olunmalıdır! 


Iz Girdi/Çıktı amacıyla kullanılan imalı DO döngüsü FORMAT deyimlerinin 
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6.3.2 İNDİSLİ DEĞİŞKENLERE BAŞLANGIÇ DEĞER ATAMA 


İndisli değişkenlere genellikle başlangıç değeri atamak durumunda kalırız. Örneğin abc (10) 
indisli değişkeninin tüm adreslerine 3. değeri atama işlemini 


REAL, DIMENSION(10) :: abc 


DO i-1,10 
abc(i)-3. veya DO i-1,10; abc(i)-3.; END DO 
END DO 


şeklinde yapılabiliriz. Yukarıdaki değer atama işlemi 


REAL, DIMENSION(10):: abc 

abes (/3./434/347 3443p ır3ışdup3u/) 
veya 

REAL, DIMENSTION(10) :: abcz(/3.,3.,3., & 
KE Ec Ec lc ce 
veya 


REAL, DIMENSION(10) :: abcz(/(3.,iz1,10)/) 


şeklilerinden herhangi birini kullanarak da yapabiliriz. İndisli değişkenlere başlangıç değeri 
atamak için iki yöntem mevcuttur: 


(0) İndisli değişken boyutu çok büyük değilse, tip tanımlama satırında başlangıç değer atama 
yapılabilir: 


REAL, DIMENSION(5) :: vektor—-(/5.,2.,4.,3.,-1./) 


Örneğinde, vektor(1)>5., vektor(2)22., vektor(3)-4., vektor(4)33., 
vektor (5) --1. olarak atanmaktadır. 


(2) İndisli değişkene atanacak değer “aynı” ancak çok sayıda ise, her değerin tek tek girilmesi 
pratik değildir. Ancak bu durumda imalı DO döngüsü kullanımı ile başlangıç değeri 
atanabilmesi olanaklıdır. Değer atanacak indisli değişkenin değerleri “(/”, “0” 
parantezleri içinde verilir. 


(/ değer atamal, ..., indis-min,max,artış /) 


Örneğin, imalı DO döngüsü ile değer atama 


REAL, DIMENSION(25) ::A-(/ (REAL(i),i-1,25) /), & 
B-(/ (1.0,i-1,25) /) 
INTEGER, DIMENSION (1000) ::indis-(/(i,iz1,1000) /) 


şeklinde gerçekleştirilebilir. Burada REAL(i) komutu ile i tamsayısı “gerçek” sayıya 
dönüştürülmektedir. i—1,25 ile A(1)<1., A(2)-2., A(3)-3., ..., A(25)-25. 
ataması yapılmaktadır. Benzer şekilde B indisli değişkenine yapılan atamada B(1)<1., 
B(2)21.,B(3)21.,..., B(25)-1. ataması uygulanmaktadır. Diğer taraftan, indis 
tamsayı değişkenine adresleri sırayla 1, 2,..., 1000 değerleri atanır. 
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CHARACTER veya LOGICAL veri tipleri için, değişken listesi sabitin tipi ile uyuşmalıdır. 
Buna rağmen, bir INTEGER, REAL veya COMPLEX değişken listesine aynı tipten bir sabit ile 
başlangıç değeri atanabilir. Benzer şekilde mantıksal tipteki veriler aynı kurallara bağlı 
kalmak kaydıyla yapılan atamalara örnekler aşağıda verilmiştir: 


LOGICAL, DIMENSION(5) :: Lojik-(/ (.FALSE.,i-1,5) /) 
COMPLEX, DIMENSION(72):: 2z2-(/ ((0.,0.),i-1,72)/) 


İki veya daha fazla indisli değişkene değer atarken, satır vektöründe RESHAPE deyimi veya 
niteliği kullanılır. RESHAPE deyiminin genel kullanım şekli 


ÇıktızRESHAPE(indisli 1, indisli 2) 


olarak verilmektedir. . Burada indisli 1 şekil verilecek tek boyutlu indisli veriler, 
indisli 2 yeni indisli değişkenin boyutudur. Örneğin, 


matris-RESHAPE( (/1,1,1,1,2,2,2,2,3,3,3,3/), (/4,3/) ) 


ilk tek indisli veriler aşağıdaki gibi 4 satır ve 3 sütundan (4X3) oluşan matris formuna getirilir. 


matris — 


p p Pp 
NN MN 
WWW 


ıı 2 3 
Aynı işlem tanımlama satırında, aşağıdaki şekilde, gerçekleştirilebilir. 


INTEGER, DIMENSION(4,3) :: matris - RESHAPE( & 
(/1,1,1,1,2,2,2,2,3,3,3,3/), (/4,3/) ) 


Benzer şekilde 


REAL, DIMENSION(2,2) ::a-RESHAPE( (/1,2,3,4/) , (/2,2/)),& 
b-RESHAPE( (/5,6,7,8/) ,(/2,2/)) 


a ve b matrisleri 


olarak tanımlanmaktadır. 


VE Program içinde ve/veya tanımlama kısmında birden fazla boyutlu indisli 


değişkenleri tanımlamak için RESHAPE deyimi veya niteliğini kullanınız. 
İndisli değişkenin değerleri bellekte depolanma sırasını takip etmelidir! 
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6.4 İNDİSLİ DEĞİŞKENLERİN DİĞER ÖZELLİKLERİ 


Bazı koşullar altında, indisli değişkenler skalar değişkenlerle yapılan aritmetik işlemler gibi 
işleme tabi tutulabilirler. İki indisli değişken aynı boyuta sahip ise skalar aritmetik işlemlerde 
kullanılabilir ve eleman-eleman arasında aritmetik işlem yapılır. Örneğin, 


PROGRAM indisli toplam 


IMPLICIT NONE 
INTEGER :: i 
REAL, DIMENSION(4) :: az(/1., 2., 3., 4. /) 
REAL, DIMENSION(4) :: bzx(/5., 6., 71., 8. /) 
REAL, DIMENSION(4) :: c, d 
DO i-1,4 
c(i)-a(i)tb(i) ! Eleman-eleman toplamı 
END DO 
d-atb ! İndisli değişken olarak toplamı 


WRITE(*,100) 'c',c 

WRITE(*,100) 'd',d 

100 FORMAT(' ',A,'—',5(F6.1,1x)) 
END PROGRAM indisli toplam 


Programının çıktısı 


1 2 3 
123456789012345678901234567890 
c- 6.0 8.0 10.0 La 0 
d- 6.0 8.0 10.0 12.0 


görüldüğü üzere her iki işlem aynı sonucu vermektedir. dx-atb deyimi de aynı indise sahip 
elemanları toplayarak sonucu aynı indisli yeni değişkene atamaktadır. Bu özellikten 
yararlanarak, bu tarz işlemlerde programı kısa ve anlaşılır tutmak bakımından yararlıdır. 


Aşağıdaki program deyimlerini incelediğimizde, indisli değişkenlerin uzunluklarının aynı 
ancak alt ve üst sınır değerlerinin farklı olduğunu görürüz. Aşağıda toplanan (a ve b) ve 
toplam (c) indisli değişkenleri aynı indis aralığında yer almadığı için c-a*b işlemi 
gerçekleştirilemez! 


REAL, DIMENSION(1:4)::a-(/1., 2., 3., 4. /) 
REAL, DIMENSION (5:8) ::b-(/5., 6., 7., 8. /) 
REAL, DIMENSION(91:94) ::c 

czatb ! — İşlemi gerçekleşmez 


Skalar sabit ile indisli değişken çarpım işlemi kısa notasyonla uygulanabilir. 


REAL, DIMENSION(4) ::a-(/5., 6., 7., 8. /) 
REAL, DIMENSTION(4) ::c 

REAL :: bzs2 

c-b*a 

WRITE(*,100) 'c',c 

100 FORMAT(' ',A,'—',5(F6.1,1x)) 


128 BÖLÜM 6. İNDİSLİ DEĞİŞKENLER VE DÖNGÜLER 


işleminin sonucu 
1 2 3 
123456789012345678901234567890 
cz 10.0 12.0 14.0 160 
olarak bulunur. 


FORTRAN 90/95'de skalar değişkenler için kullanılan kütüphane fonksiyonları (ABS, SIN, 
COS, EXP ve LOG) indisli değişkenleri de argüman olarak kabul ederler. İndisli değişkenin 
her bir elemanına kütüphane fonksiyonu uygulanır. Örneğin, 


1 e In(i) 
İİ ye In(1.B) 
az 5 EXP (a) - ; LOG(a)- 
13 el In(1.5) 
24 yesi In(2.1) 


Örneğin, x(1)-1.,x(2)-2.,x(3)-3.,x(4)-4. vex(5)-5. olan indisli değişen 
için sin x 'i hesaplayalım. Aşağıdaki programda, x indisli değişeni skalar bir değişken gibi 
sinüs argümanında kullanılmıştır: 


PROGRAM Ornek 
IMPLICIT NONE 


REAL , DIMENSION(5) :: X -— (/1.0,2.0,3.0,4.0,5.0/) 
! Elementel fonksiyon 

PRINT *,'X in Sinüsü — ',SIN(/X) 

! Dönüşümsel fonksiyon 

PRINT *,' X lerin toplamı -— ',SUM(X) 


END PROGRAM Ornek 


Çıktısı 


X in Sinüsü- 0.841470957 0.909297407 0.141120002 -0.756802499 —0.958924294 
X lerin toplamı -< 15.0000000 


olarak elde edilir. 


PR İndisli değişkenlere skalar değişkenler gibi aritmetik işlem uygulayabilmek 


için indisli değişkenlerin boyutları aynı olmalıdır. 


6.4.1 WHERE YAPISI 


FORTRAN 90'nın geliştirilmesiyle, bu dilde, indisli değişkenlerin bazı durumlarda skalar 
değişkenler gibi kullanılabileceğine daha önce değinmiştik. Buna örnek olarak, iki indisli bir 
değişkenin logaritmasını ele alalım: 
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INTEGER :: nz100,mz100 
REAL, DIMENSION(n,m) ::log deger, deger 
DO i-li,n 
DO j-1,m 
log deger(i, J) -LOG(deger(i,j)) > log deger-L0OG(deger) 
END DO 
END DO 


Yukarıdaki her iki örnekte de deger (100, 100) indisli değişkenindeki sayısal değerlerin 
doğal logaritmaları alınarak log deger (100, 100) "ta saklanmaktadır. İndisli değişkenin 
tüm değerlerinin değil de, bazı değerlerinin (deger>0) logaritmasını almak istediğimizi 
kabul edelim. Bu durumda, aşağıdaki örnekte olduğu gibi, bir dizi DO döngüsü ile beraber IF 
deyimini de kullanmak durumunda kalırız. 


DO i-lI,n 
DO j-1I,m 
IF( deger(i,j)>0.0 ) THEN 
log deger(i, J) -LO0G(deger(i,)j)) 
ELSE 
log deger(i, j)--99999. ! yani—co 
ENDIF 
END DO 
END DO 


Bu işlemi WHERE deyimi ile mantıksal ifade bir kerede kullanarak yapabiliriz. Önce WHERE 
deyiminin FORTRAN 90 dilindeki genel kullanım şekline değinelim: 


(isim :|) WHERE (mantıksal ifade) 
Blok 1 
ELSEWHERE 
Blok 2 


END WHERE |isim)| 


WHERE yapısı, IF yapısına benzer; mantıksal ifade doğru olduğunda blok |, yanlış 
olduğunda blok 2'deki işlemler gerçekleştirilir. Şimdi yukarıdaki örneği WHERE yapısını 
kullanarak yeniden yazdığımızda, indisleri kullanmaya gerek kalmadan, aşağıdaki şekilde 
basitlik sağlanır. 


WHERE (deger>0) 

log deger-L0G (deger) 
ELSEWHERE 

log deger-—-99999. 
END WHERE 
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FORTRAN 95'de WHERE yapısı aşağıdaki gibi yeni mantıksal ifadelerin kullanılmasına da 
olanak sağlar. 


(isim :) WHERE (mantıksal ifade 1) 
Blok 1 
ELSEWHERE (mantıksal ifade 2) Jisim)| 
Blok 2 
ELSEWHERE |isiml| 
Blok 3 


END WHERE Jisim)| 


WHERE yapısı sadece koşulun sağlandığı durumda tek satırda kullanılabilir. 


WHERE (mantıksal ifade) <Atama deyimi> 


Bazı örnekler 


INTEGER, DIMENSION(45):: a deger, b deger 
WHERE (a deger<0) 
b deger -— ABS(a deger) 
ELSEWHERE 
b deger - a deger*a deger 
END WHERE 


Yukarıdaki örnekte b deger indisli değişkeni oluşturulurken, a deger'in negatif 
değerlerinin mutlak değerleri alınarak pozitif değerlere dönüştürülüyor; pozitif olan 
değerlerinin karesi alınarak b deger'e eşitleniyor. 


INTEGER, DIMENSION(45) :: a deger, abs deger 
WHERE (a deger<0) abs deger-ABS(a deger) 


Yukarıdaki örnekte dea deger indisli değişkeninin negatif değerlerinin mutlak değeri 
alınıyor ve abs. deger indisli değişkenine eşitleniyor. 


6.4.2 FORALL YAPISI 


FORTRAN 95 programlama dilinde getirilen bu yenilik ile indisli değişkenlere, eleman 
bazında, bir dizi işlem uygulamasına olanak sağlar. Üzerinde işlem yapılacak elemanlar, hem 
indis değerleri hem de mantıksal koşul ile belirlenebilir. İndisli değişkenin belirtilen indisleri 
ve mantıksal koşuluna uygun olanlar elemanlara işlemler uygulanır. 
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FORALL yapısının genel kullanım şekli aşağıda verilmiştir: 


lisim:) FORALL (inl-üçlüll,in2-üçlü2,. . .,mantıksal ifade)) 
Deyim 1 
Deyim 2 
Deyim n 
END FORALL /isim) 


FORALL deyimindeki her indis “alt indis:üst indis:adım” üçlüsü ile verilebilir. 
FORALL yapısına IF ve WHERE yapılarında olduğu gibi isim verilebilir. 


Örneğin, FORALL yapısını kullanarak 10X10”luk bir birim matris oluşturalım: 
REAL, DIMENSION(10,10) :: birim matris-0.0 


FORALL (i-—1,10) 
Birim matris(i,i) — 1.0 
END FORALL 


Aşağıda verilen bir diğer örnekte 20Xx20'lik bir matrisin elemanlarının aritmetik olarak tersi 
alınmaktadır. Ancak elemanlarından bir kaçının sıfır olması ihtimaline karşın, bu işlemi 
sadece sıfır değerini almayanlara uygulamaktadır. 


REAL, DIMENSION(20,20) :: abc 

FORALL ( i-1:20, j-1:20, abc(i,j)/:- 0.) 
abc(i,j)21.0/abc(i,j) 

END FORALL 


Yani yukarıdaki işlemi aşağıdaki programın dizisinin yerine geçmektedir. 


DO i-1,20 
DO j-1, 20 
IF( abc(i,j)/- 0. ) THEN 
abc(i,j)z21.0/abc(i,j) 
END IF 
END DO 
END DO 


Bu iki uygulama arasındaki fark DO— IF döngülerinin kullanıldığı son örnekte, döngüler sıralı 
olarak gerçekleştirilmektedir. FORALL yapısında ise rasgele olmaktadır. Örneğin, 


FORALL (i-2:50, j-1:n-1) 
a(i,j)-SORT(a(i,j)) 
b(i,j)z51.0/a(i,j) 

END FORALL 


FORALL (i-l:n, j-I:m, i>j) indis(i,j)-ABS(i-j) 14 
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FORALL (i-l:max d, jJ-I:max d, deger(i,j)>0) 
a(i, j)-SORT(ABS (deger(i,j))) 
END FORALL 


FORALL yapısı, IF ve WHERE yapılarında olduğu gibi, tek satırda da kullanılabilir. 


FORALL (inl-üçlül|l,. . .,mantıksal ifade)J) Atama deyimi 


6.5 DÖNÜŞÜMSEL ARŞİV FONKSİYONLARI 


Dönüşümsel arşiv fonksiyonları bir veya daha fazla indisli girdi ve çıktı değişkeni içeren 
fonksiyonlardır. İndisli değişkenlere bire-bir uygulanan elementsel fonksiyonların tersine 
dönüşümsel fonksiyonlar tüm indisli değişkeni kullanır. Çıktı bir indisli değişken ise çıktı 
indisli değişkeninin boyutu girdilerinki ile aynıdır. Örneğin, DOT. PRODUCT fonksiyonu iki 
vektörü (indisli değişkeni) girdi olarak kabul eder ve çıktısı “skalar”dır; diğer bir deyişle, 
yaptığı matematiksel işlem 


dı b, 
da b, 
azla;|, b-)b,| , asbzab kab, sab, tab, 
| A, ll (b, | 
olmaktadır. FORTRAN 90/95 kütüphanelerinde birçok dönüşümsel fonksiyon mevcuttur. 


Bunlardan en sık kullanılanlar Tablo 6.1”de verilmiştir. 


ÖRNEK 3: (1,2,3,4,55'den oluşan vektörün skalar çarpımını uygun dönüşümsel arşiv 
fonksiyonu kullanarak hesaplayan bir program yazınız. 


Bu iş için en uygun dönüşümsel arşiv programı DOT PRODUCT'dır. 


PROGRAM Ornek 3 

IMPLICIT NONE 

REAL , DIMENSION(5) :: X - (/1.0,2.0,3.0,4.0,5.0/) 
PRINT *,' X . X skalar çarpımı ' 

PRINT *,' ',DOT PRODUCT(X,X) 

END PROGRAM Ornek 3 


Program çıktısı 
X . X skalar çarpımı 
55.0000000 


olarak elde edilir. 
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Tablo 6.1 Standart FORTRAN derleyicilerinde mevcut dönüşümsel arşiv fonksiyonları. 


Fonksiyon 
ALL(indis) 


ANY (indis) 


COUNT (indis) 


DOT PRODUCT (A, B) 


MATMUL(A,B) 


TRANSPOSE (matris) 
MAXVAL(indil,ic) 
MINVAL(indil,ic) 


SUM(indl,ic) 


PRODUCT (indl,ic) 


Amaç 


Mantıksal bir fonksiyondur ve indis indisli değişkeninin #üm 
elemanlarının tüm değerleri .TRUE. olduğunda . TRUE. 
değerini alır 

Mantıksal bir fonksiyondur ve indis indisli değikeninin 
herhangi bir elemanının değeri . TRUE . olduğunda . TRUE. 
değerini alır 

İndisli indi s değişkeninin . TRUE . değerini alan eleman 
sayısını verir. 

A ve B aynı boyutlu indisli değişkenler (vektör) olmak üzere bu 
vektörlere skalar çarpım işlemini uygular ve çarpım sonucunu 
verir. 

A ve B iki boyutlu indisli değişkenler (matris) olmak üzere bu 
matrislere A. B sırasıyla çarpım işlemini uygular ve çarpım 
matrisini verir. 

matris iki boyutlu indisli değişken (matris) olmak üzere bu 
matrisin transpozunu verir. 

indiı indisli değişkeninde ic'nin .TRUE. olduğu değerlerden 
maksimum olan değerini getirir. 

indı indisli değişkeninde ic'nin .TRUE. olduğu değerlerden 
minimum olan değerini getirir. 

indiı indisli değişkeninde ic'nin .TRUE. olduğu değerlerin 
toplamını getirir. ic'nin kullanımı isteğe bağlıdır; bu seçenek 
kullanılmadığı takdirde indisli değişkenin tüm elemanlarını 
toplar. 

indiı indisli değişkeninde ic'nin .TRUE. olduğu değerlerin 
çarpımını getirir. ic'nin kullanımı isteğe bağlıdır; bu seçenek 
kullanılmadığı takdirde indisli değişkenin tüm elemanları bir biri 
ile çarpılır. 


6.6 DÖNGÜ OPTİMİZASYONU 


FORTRAN'da bir çevirim oluşturmanın en kolay yolu DO döngüsü ile sağlanır. Programlar 
çalışma zamanının büyük bir kısmı genellikle döngülerde harcar; bundan dolayı, döngüler 
optimize edilmelidir. Döngü içinde gereksiz hesaplardan kaçınılmalıdır. 


6.6.1 DÖNGÜDEN BAĞIMSIZ İFADELERİN KALDIRILMASI 


DO döngüsünün içinde, döngü indisi içermeyen indisli veya indissiz değişkenlerle ile 
işlemleri gerektiren ifadeler döngü dışında hesaplanmalıdır. Bu teknik ile gereksiz ve tekrarlı 
hesapların kaçınılmasına neden olunur. 
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Örneğin, 


REAL, DIMENSION (28):: b 


REAL, PARAMETER :: pi-3.14159 
REAL :: toplam 
DO k-1,28 
toplam - toplam t SIN(pi/12.) *b(k) 
END DO 


şeklinde verilen programda b (k) ile çarpılan sin(7 /12) terimini 28 kez hesaplamaya gerek 


yoktur. Bu hesaplama pekala, aşağıdaki örnekte olduğu gibi, döngü dışında yapılabilir ve 
değeri bellekte saklanabilir ve gerektikçe bu değer kullanılır. 


REAL, DIMENSION (28) :: b 
REAL, PARAMETER :: pi-3.14159 
REAL :: toplam, sinpi 


sinpi — SIN(pi/12.) 
DO k-1,28 

toplam - toplam t sinpi * b(k) 
END DO 


Bir başka örnek olarak da aşağıdaki programı ele alalım: 


REAL, DIMENSTION (115) :: c 
REAL :: x-2.359 
DO j-1,115 
C(j) > 1.25 * j * x**2 * EXP(-0.5*x*x) 
END DO 


Burada eşitliğin sağ tarafındaki ifade olan 1257'e terimi döngü dışında hesaplanabilir; 
çünkü bu terim hiç bir şekilde döngü değişkem olan 3'ye bağımlı değildir. Bu basitleştirme 
aşağıdaki şekilde yapılabilir. 


REAL, DIMENSTION (115) :: c 
REAL :: x>2.359, z2z2 
zz — 1.25 * x**2 * EXP(-—0.5*x*x) 
DO j-1,115 
c(j) > 2z * j 
END DO 


İç içe döngülerde döngü değişkeninden bağımsız değişkenli indisli değişkenlerde döngü 
dışında değerlendirilmelidirler. Örneğin, 
aa : DO j-1,45 
bb: DO i-1,45 
C(i)-A(i,j) * B(İ) 
END DO bb 


END DO aa 
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Programında bb döngüsünde j indisi değişmediği için B (j) "nin değerini elde etmek için 45 
kez bellek adresine ulaşılmaktadır. Bu program aşağıdaki şekilde değiştirilebilir: 


aa : DO j-1,45 


gecici - B(j) 
bb: DO i-1,45 
C(i)-A(i,j) * gecici 
END DO bb 


END DO aa 
Yukarıdaki gibi B (3) 'nin bellek değeri döngü dışında bulunduktan sonra geçici (gecici) 
bir değişkene atandığında, bellek değerine bir kez ulaşılarak işlem süresi kısaltılmış olur. 


Eğer DO döngüsünün içinde, döngü değeri değişmeyen bir değişkenle test yapılıyorsa, bu 
durumda test döngü dışına alınabilir. Örneğin, 


REAL :: Cz4.5, B-1.2345 


DO j-1,777 
IF(A>3.14) THEN 
X(j) >C*SIN(B) 
ELSE 
X (j) 2C*COS (B) 
ENDIF 
END DO 


programında C ve B'nin değerleri sabittir; yani döngü indisi 3'e bağlı değildir. Ayrıca 
döngüde kullanılan kıyaslama değişkeni olan A'nın değeri, döngü içinde hiçbir surette 
değişmemektedir. Bu durumda IF yapısı ile kıyaslama işlemini döngü dışına aşağıdaki gibi 
taşımak daha uygun olur. Böylece programda 777 kez, zaman alıcı bir işlem olan, kıyaslama 
işleminden kaçınılmış olunur. 


REAL :: C-4.5, B-1.2345, U, V 


U-C*SIN(B) 
V-C*COS (B) 


IF(A>3.14) THEN 


DO j-1, 777 
0) 
END DO 
ELSE 
DO j-1, 777 
a 
END DO 


END IF 
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Bir araya getirme: Eğer bitişik iki DO döngüsü aynı alt ve üst sınır değerlerine sahipse, aynı 
döngü indisi altında toplanabilir. Bu işlem sadece programı kısaltmakla kalmaz aynı zamanda 
programın hesaplama süresini de önemli ölçüde azaltır. Aşağıdaki örnekte üç indisli 
değişkene yapılan atamalar veriliyor. 


di : DO i-1,800 
A(1)-0.125*REAL(i) 
END DO d1 
d2 : DO j-1,800 
B(j)21./(1.*REAL(j)) 
END DO d2 
d3 : DO k-1,800 
C(k) -SIN(a(k) tb(k)) 
END DO d3 
Bu program tek bir döngü altında, aynı döngü indis değişkeni kullanılarak, aşağıdaki şekilde 
bir araya getirilebilir: 


DO i-1,800 
A(i1)-0.125*REAL(i) 
B(i)21./(1.*REAL(i)) 
C(i)-SIN(a(i) tb(i)) 

END DO 


ALIŞTIRMALAR 
6.1 Aşağıdaki program deyimlerinde varsa hataları tespit ediniz. 


a) REAL :: A, B 
DIMENSTION A(9), B(1,250) 


b) REAL, DIMENSTION (5,5,5,5,5,5,5):: arl, ar2 


c) Ms6 

N-4 

COMPLEX, DIMENSION (N,M):: sayil, sayi2 
d) INTEGER DIMENSTON :: ix(101) 
e) DIMENSTON, REAL (26) :: a, b, c 


f) oCHARACTER, DIMENSTION U(4,5,6,7) 


g) INTEGER, DIMENSTION Y(1(3)) :: hall 


h) REALA, B 
DIMENSTON A(3,4,0:3), B(0:2;0:5) 


i) INTEGER :: NU(0:0) 

3) INTEGER :: C(-4: 5) 

k) REAL, DIMENSION (4,3) (1:3) :: a 

1) LOGICAL, DIMENSTION (10) :: aa, bb(20) 


m) REAL :: C(3,-5,6), D(4,14) 
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n) INTEGER :: D(N,N) 
o) INTEGER, PARAMETER :: n>—-10 
INTEGER, PARAMETER :: mz—1 
REAL, DIMENSION(n:n*m) :: deg 
p) REAL, DIMENSTION(20) :: abc#0. 
g) REAL, DIMENSION(10:0,-2) :: Matl, Mat2 
r) INTEGER, DIMENSION(12,0,-3) :: İŞLEM 
o) INTEGER, PARAMETER :: nzl5 
INTEGER, PARAMETER :: mzn**2 
REAL, DIMENSION(n:m) :: matris A, matris B 


6.2 Aşağıdaki DO döngülerinde indis değişkenlerinin alacağı değerlerin listesini yapın. 


(a) DO j:x1,12 (b) DO NM-5,27,3 

(c) DO k-1,7,2 (d) DO 1-3,30,3 

(e) DO m-5,128,5 (£) DO M3-1, 78,8 

(g): DO i-1,;13;3 (h) DO KKKKKK-1,14,2 


6.3 Aşağıdaki DO kullanımlarında varsa hatalı olanlarını tespit ediniz. 


(a) DO 7-1.23 (b) DO nn-5, 5555 

(Cc) DO K34-1,72 (d) DO ido-4,5 

(e) DO M-n,2,-1 (£) DO L-1,1*12 

(g) DO jin-itn, j#n1t3 (h) DO MEDEN1-8,19,14 
(1) DO K-4,12,2 (id) DO i-2,3*m,3 

(İ) DO JIM-jl,j2,JB 


6.4 Aşağıdaki DO döngülerinde çevirimin kaç kez uygulanacağını saptayınız. 


(a) DO i-6,6 (b) DO n-5,1 
(c) DO k-1,7 (d) DO m-l,5,3 
(e) DO a-0.1,3.,0.2 (£) DO k-15,1,-2 


6.5 Aşağıda verilen kısa program gurubuna göre formatlı çıktıların sayısal değerleri ile 
dizilimlerini bulunuz (tip tanımlamaların doğru yapıldığını kabul ediniz). 


INTEGER, DIMENSION(3,4) :: MM 
DO i-1,3 
DO j-1,4 
MM(İ, 3) 22414343 
END DO 
END DO 


a) WRITE(6,10) (MM(2,j),j-1,4) 
10 FORMAT(1X,1012) 


b) WRITE(6,11) ((MM(1i,j),j-1,4),i-1,3) 
11 FORMAT(2X,513) 
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c) WRITE(6,12) (i,iz1,4), (m, (MM(m,n),nz1,4),mz1,4) 
12 FORMAT(2X,4(2X,12,1X),/,4(2X,12,1X,4(2X,13,1X))) 


d) WRITE(6,13) ((MM(i,j),)21,4),i-1,3) 
13 FORMAT(2X,514) 


e) DO i-1,14 
WRITE (6, ' (5x,5i4)') (MM(i,3j),j2i,4) 
END DO 


f) DO i-1,4 
WRITE (6,14) (MM(i,3j),j-4,i,-1) 
END DO 
14 FORMAT(10x,5(13,T10)) 


6.6 Aşağıdaki program parçalarında varsa hataları bulunuz. 


(a) INTEGER :: veri (256) 
veri — 0.0 
veri (10:256:10) 100 
WRITE(*,100) veri 
100 FORMAT(1x,1018) 


(b) REAL, DIMENSION(10,20) :: vek1-2. 
REAL, DIMENSION(10) :: vek2-5. 
WRITE(*,100) vekltvek2 
100 FORMAT(1x,10f4.0) 


(c) INTEGER :: i, j 

INTEGER, DIMENSION(10) :: altl 

INTEGER, DIMENSION(0:9) :: alt2 

INTEGER, DIMENSION(100) :: girdi- & 
(/( (0,i-1,9), j*10, izl, 10) /) 

alti-girdi(10:100:10) 

alt2-alt1/10 

WRITE(*,100) altl*alt2 

100 FORMAT(1x,1018) 


(d) INTEGER, DIMENSION(4) :: l1iste-(/4,3,5,2/) 
INTEGER, DIMENSION(10) :: vek-(/(104k,k--4,5) /) 
Vek(liste)-(/1, 2, 3, 4) 

WRITE(*,*) vek 


(e) REAL, DIMENSTION (5,5) :: test-0. 
FORALL (i-1:5, j-1:5) 
test(i,j)z1./REAL(11tj-2) 
END FORALL 


(£) INTEGER, DIMENSION(10) :: Bilgi 
Bilgi-(/ 1, 5, -4, 0, 7, -9, 17, -20, -1, 8/) 
WRITE(*,*) Bilgi <- 0.0 


BÖLÜM 6. İNDİSLİ DEĞİŞKENLER VE DÖNGÜLER 


139 


(g) INTEGER, DIMENSION (10) Bilgi 
Bilgyisi/ 1 5 <4, O Te a 11, BO siş 8) 
WHERE (Bilgi>0) 
Bilgi--Bilgi 
ELSEWHERE 
Bilgi--2*Bilgi 
END WHERE 
WRITE (*,*) Bilgi 


6.7 Aşağıda verilen 5x5'lik matri s aşağıda verilmiştir. 
kümelerinin şeklini ve içeriğini bulunuz. 


matris 


GE BW MN kk 
© GB EW MN 
al O GE w 
© <a X OG 


(a) matris(3,:), (b) matris(:2,), 
(d) matris(:,2:5:2), (e)matris(1:5:2,1 


Aşağıda verilen indisli değişken 


© © a4 O Gi 


(C)matris(1:5:2,: 


52) 


6.8 GIRDI.DAT isimli girdi kütüğünün içeriği aşağıda verilmiştir: 


34 16 22 81 41 53 12 
62 87 9 13 56 93 24 
27 61 14 66 72 89 2 
5 15 29 80 58 11 93 
13 37 26 76 54 86 16 
INTEGER, DIMENSION(5,7):: mat 
(a) DO izl,5 
READ (15,*) (mat(i,j),j21,4) 
END DO 
(b) DO iz1,4 
READ(15,*) (mat(i,j),j-1,6) 
END DO 
(Cc) READ(15,*) ((mat(i,j),)<1,7),i-1,3) 
(d) READ(15,*) ((mat(i,j),j<1,5),i-1,5) 
(e) DO izl,5 
READ (15,*) matf(i,:) 
END DO 
(d) READ (15,*) mat 
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6.9 Çarpım tablosunu oluşturan bir program yazınızı. (NOT: Çıktıyı uygun format 
belirteçleri kullanarak aşağıdaki gibi düzenleyiniz.) 


1 2 3 4 5 6 
123456789012345678901234567890123456789012345678901234567890 
in 1 2 3 4 5 6 7 8 9 10 
1 1 2 > 4 5 6 7 8 9 10 
2 2 4 6 8 10 12 14 16 18 20 
3 3 6 9 12 15 18 21 24 27 30 


10 10 20 30 40 50 60 70 80 90 100 
6.10 N elemanlı bir A dizisinde negatif ve pozitif eleman sayısı birbirine eşittir ve bunlar 


dizide dağınık bir şekilde bulunmaktadır. Yeni bir B dizisinde pozitif sayıları dizinin ilk 
yarısına, negatif sayıları ikinci yarısına gelişigüzel atayan bir program yazınız. 


6.11 Ekrandan temin edilen N sayıyı büyükten küçüğe doğru sıralayan bir program yazınız. 
6.12 Ekrandan temin edilen N sayıyı küçükten büyüğe doğru sıralayan bir program yazınız. 


6.13 NxN boyutlu bir a matrisinin (a) köşegeninin üstünde (1<J) (b) köşegeninin altında 
(1>J) yer alan elemanlarının (a (i, j) ) toplamım veren bir program yazınız. 


6.14 Fibonacci sayıları #,—£, ,4*£, >, n>2 için formülü ile hesaplanıyor. İlk iki sayı 
F > E, 1 olduğuna göre, verilen herhangi bir n için ilk ; sayıyı ve bunların £, /£,., 


oranını veren bir program yazmak istiyoruz. Bu amaçla bir algoritma hazırlayın, akış 
şeması çizin ve Fortran dilinde programlayınız. 


6.ISA ve B gibi iki tamsayının (A > B) en büyük ortak bölenini (ebob) bulan bir program 
yazınız. NOT: Bu işlemin yapılabilmesi için Öklit Algoritmasını uygulayınız. Öklit 
algoritmasına göre, en büyük sayı olan A, 


A-0,:B*R, 
şeklinde yazılabilir. Burada O bölüm veri ise kalan'dır. Daha sonra benzer şekilde 
B-0O,-R,*R, 
R,-O,:-R,*R, 


R m Onu Ky 40 


n—İ 


olacaktır. En son O değeri, en büyük ortak bölendir. 


6.16 Chebyshev polinomlarının n.ci derece ve x için hesaplayacak bir program yazınız. 
Aşağıdaki formülleri kullanınız. 


Wa)zl T)zx ve Typ) 20), (a), 


6.17 Bir kültürdeki bakteri sayısı başlangıçtaki bakteri sayısının zaman dilimi ile doğru 
orantılı olduğu bilinmektedir. Matematiksel olarak bakterilerin üreme sayısı 


p al , (an? ve 


! 21! 3! k! 
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ifadesiyle veriliyor. Burada P , herhangi bir £# anındaki bakteri sayısı, A, , başlangıçtaki 
bakteri sayısı, / zaman (saat) vea, O<a<l arasında değişen ve bakteri tipine bağlı bir 
artış faktörüdür. Artış faktörü 0.065 olduğu bilinen bir bakteri cinsinin 1 ile 24 saat 
arasındaki çoğalma faktörü ( P /P, ) yukarıdaki bağıntıyı k£-//'e kadar kullanarak 
hesaplayan bir program yazınız. 


6.18 TOFAŞ-FIAT Otomotiv gurubunun ürettiği arabaların ikinci el piyasası fiyatları, 
kullanım yılı, O km fiyatı, ve yıllık değer kaybı bilindiği takdirde hesaplanabilmektedir. 
Uzmanlar arabaların yıllık değer kayıplarının araba modellerine ve yaşlarına göre 
dağılımını aşağıdaki şekilde vermektedirler: 


Model 1 Yaş 2 Yaş 3Yaş 4 Yaşüstü 
Şahin S 4286 7.2 “017.5 6 
Doğan 4220 9.1 446.3 6 
Kartal 4182 483 “46.5 6 
Tempra Ww204 *l4 409.5 6 
Palio 213 913 011 6 
Albea 4244 “9.2 ©0478 6 
Stilo 211 ll 448.2 6 
Marca 28.1 ©l4. 447.5 6 


Panda w292 17 84 6 


Bu verilere göre herhangi bir model arabanın 0 kım fiyatı ve yaşını okuyup, ikinci el 
fiyatını hesaplayan bir program yazınız. Örneğin, Şahin S'nin O km fiyatı 23,000 YTL 
olsun. Bir yaşındaki Şahin S fiyatı 23000Xx(1-0.286)-16,422 YTL, iki yaşındakinin fiyatı 
23000x (1-0.286)x(1-0.07)-15,272 YTL vs şeklinde hesaplanacaktır. 


6.19 n.ci dereceden bir polinomun katsayıları 4,,4,.4;,...,a,,, olarak verilmektedir. 
Polinomun derecesinin maksimum 100 olabileceğini göz önüne alarak, katsayıları 
KATSAYI .DAT isimli bir kütükten okuyan ve polinomu 

pl) -ax”'tax"İtax"İska xta,, 


ifadesinden ziyade 
pa) m (C *. ((a,x ii 4z)Xx 2 45)X 4 vE Ay )X* Ay )X t Anı 


şeklinde programlayan, polinomun değerlerini (-2.2) aralığında 0.1'lik artırımlarla ekrana 
listeleyen bir program yazınız. 


6.20 Bir fabrikada üretilen bilyalardan rasgele 15 örnek seçilerek çapları ölçülmüştür. Bu 
ölçüm sonuçları ( D;'ler i-1 (1) 15) sırasıyla mm olarak 12.3, 12.1, 12.2, 12.2, 12.5, 
11.9, 12.0, 12.1, 12.1, 12.2, 12.4, 1209, 12.1, 12.1, 12.2 olarak kaydedilmiştir. Bir 
program yazarak bilya çaplarının (a) geometrik, (b) aritmetik, (c) harmonik 
ortalamalarını, (d) standart hata, (e) standart sapma ve varyansını hesaplayınız. 


6.21 Bir işletmede üretilen vidalardan rasgele örnekler alınması için iki işçi görevlendiriliyor. 
Bu işçilerden biri 6 diğeri de 10 örnek alarak gerekli çap ölçümlerini kalite kontrol 
mühendisine ulaştırıyor. Örneklerin çap ölçümleri (mm cinsinden) 
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DI, 5.13 5.10 5.22 5.25 5.18 5.19 5.14 522 521 5.22 


I 


D2, 5.14 5.14 5.21 5.18 5.17 5.18 


olarak tesbit edildiğine göre bu iki gurubun (a) birbirinden bağımsız olarak (b) iki 
gurubun tamamının aritmetik ortalamalarını ve standart sapmalarını hesaplayan bir 
program yazınız. Not: (b) sıkkındaki hesaplamaları yapmak için 


7-” DI*mD2 Var(Z) - nVar(D1) 4-mVar(D2) 
n4-m nm 


formüllerinden yararlanınız. Burada Z örneklerin tümünün aritmetik ortalaması ve 
Var(Z)'de bütün gurubun varyansını temsil etmektedir. 


6.22 Bir dersin öğretmeni dönem içinde yapacağı 3 vize sınavından ilkinin ağırlığının *p 10, 
diğerlerinin © 15, ödevlerin © 20, final sınavının da W 40 olacağını ilan ediyor. 
Hazırlayacağı bir program ile öğrencilere 100 üzerinden verilen notlar ve ağırlıkları 
kullanarak geçme notunu saptamak istiyor. Bu nedenle sizin yazacağınız bir programda 
en fazla 70 öğrenci için öğrencinin numarası NO (A9), adı ve soyadı ad ve soyad 
(A25), vize notları vizel, vize?2, vize3, ödev (odev) ile final (final) verilerini 
F6.1 formatıyla ve sırasıyla okuyacak, geçme notunu hesapladıktan sonra ekrana sadece 
numara, ad-soyad ve geçme notu ile sınıfın not ortalamasını notunu) standart sapma ile 
beraber yazan bir program hazırlayınız. 


6.23Aşağıdaki veri gurubu için (a) aritmetik, (b) harmonik, (c)geometrik ortalamayı 
hesaplayan bir program yazınız. Veriler programa aşağıdaki şekilde ve formatta 
kütükten okutulacaktır. 


1.23 1.32 1.28 1.66 1.33 1.19 
1.27 1.45 1.26 1.53 141 1.38 


6.24Aşağıdaki programların çıktılarını bulunuz. 


(a) REAL,DIMENSION(3,3):: a, c 
REAL,DIMENSION(3,3):: b-(/1.,3.,-2.,4.,2.,1.,-3.,2.,1./) 
INTEGER :: i, j 
DO i-1,3 
DO j-1,3 
IF (i--j) a(i,j)-1.0 
d(i,j)-b(i,j)ta(i,j) 


END DO 
END DO 
PRINT*, d 


(b) REAL, DIMENSION(6):: a 
REAL, DIMENSION(6):: b-(/6.,2.,-1.,0.,4.,8./) 


REAL :: topla 
INTEGER :: n>6, i 
DO i-3,n 


topla-toplatb(i) 
A(i-2)52.*b(i)-1. 
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(c) 


(d) 


END DO 
DO izl,n 
WRITE(6,15) i,a(i),i,bl(i) 
END DO 
WRITE(6,*) topla 
15 FORMAT(3x,'A(',il,')—',F6.3,/, & 
3X, *B('şil,')2',E6.3) 
INTEGER :: J, K 


DO J-9,45,9 
DO K-2,10,2 
IF (J--K*K) WRITE(6,8) J,K 
END DO 
END DO 
8 FORMAT(9x,3i3) 


REAL, DIMENSION(10) :: tr 
REAL :: a->9., b>5. 
INTEGER :: i, j, iszl 
jJz5j1t3 
tr ()-2)-a 
tr(j-1) -a-b 
DO WHILE (J<10) 
j-j41 
tr(j)str(1) ttr(j-1) 
END WHILE 
DO iz-1,10 
PRINT*; “T(',i;,')—',tr(1) 
END DO 


REAL, DIMENSION (8) :: A, B !I G.DAT'ın İçeriği 


INTEGER :: i 


OPEN (3,FILE-'G.DAT') ! 4. 


DO i-1,7 ! 
READ (3, *) AÇI) l 
IF(I<S) READ(3, *) B(I) l 

END DO ! 

A(1)-A(1)4B(2) ! 

DO i-1,7 ! 
A(i*t1)-A(i) 41*B(i) l 

END DO l 

DO i-1,8 l 
WRITE (*,22) I,A(1),B(1) İ 

END DO ! 

22 FORMAT(5X,12,5X,2(F10.4,2X)) 


REAL, DIMENSTION (3,3) ::a 
INTEGER :: n-3, i, j 
REAL > 


OPEN(2, FILEZ'A.DAT', STATUSZ'OLD') 
READ (2, *) (A(İ,jJ),j2#1,n),izl,n) 


ka C©OKHW 
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x-0.0 ! A.DAT'ın İçeriği 
DO izl,n 3 2. A, İ. 0. —7. 
DO jJzl,n di, el le De De. 


IF(A(i,j) <-x) CYCLE 
PRINT*, A(i, ij) 
X-A(I,J) 
END DO 
PRİNİ*, i,İ,X 
END DO 


(h) REAL, DIMENSION (11,1) :: a 
INTEGER :: i, ), n 
REAL :: X 
OPEN (5, FILE-'B1',STATUS-'OLD') 
nzl1ll 
READ (5,*) (a(i,1),iz1,N) I BI'in İçeriği 
DO i-l,n-1I 7. -1. 6. 0.52. 1.2 
DO 20 jxitl,N . 14.3 -23. 89. 0.02. 
irtafi,i)ssa(ij,İ)) CYCLE 
X-a(j, 1) 
milşli)er 
END DO 
END DO 
WELITE (6,15) (aliş İ)ş İzsişm) 
15 FORMAT(5X,6(F7.3,1X)) 


(1) REAL, DIMENSION(0:7) :: b 
REAL :: X, a, b 
OPEN (15, FILE—'B2',STATUS-'OLD') 
xX-a ! B2'in İçeriği 
READ (15,*) b ! İz 5. -3. di 0. 2. -2. 
B(2)-B(1) 4X*X 
B(3)-X 
DO i-0,6 
WRITE (*,100) i,b(it1) 
END DO 
100 FORMAT (2X,'B(',11,')5',E5-0) 
(i) REAL, DIMENSION (0:10) :: X 
X(0)53. 
ktl)e. 
DO isi,5 
X(141)-0.54X(i)4X(i-1) 
END DO 
DO i-0,4 


CECH(X (141) -X(i)) #42 
PRINT*, X(i) 

END DO 

PRINT*, 

PRINT*, C 
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(j) REAL, DIMENSION (5,3) :: S 
REAL << Ti, Tt, OD, Ölü 
INTEGER :: M 
OPEN (8, FILE-'DEN') 

Tİ1—0 
DO K-1,5 
READ (8, *) (S(K,M),M-1,3) 
END DO 
DO i-1,5 
T-0. 
DO j-1,3 
T-T4S(i,3j) 
END DO 
TİTS.) 
END DO 
OL-0.25*T 
OL1-0.1254T 
PRINT*, OL,OLI 


DEN'in İçeriği 

30. Dd 67 
81. 72. 30. 
LO 2.15 63» 
8. Ze 97. 
68. 70 74. 


(k) INTEGER :: n 
REAL, DIMENSTION (4) :: az(/1.,-3.,2.,5./), & 
b>2(/3:,4., 15; 1.17) 
DO nzl,4 
S5-0.0 
S—S*A(N) *B(N) 
END DO 
PRINT*,'S5—',S 


(1) REAL, DIMENSION(6) :: vekil, vek2 
vek1l-(/ 2., -4., 5., -1l., O., 3. /) 
WRITE(*,*) SUM(vekl) 

WRITE(*,*) PRODUCT(vek1l) 
WRITE(*,*) PRODUCT (vek1l, MASK—-vek1/-0.) 
WRITE(*,*) ANY(vek1>0.) 
WRITE(*,*) ALL(vek1>0.) 
WHERE (vek1>0) 
vek2-2.*vekl 
END WHERE 
WRITE(*,*) SUM(vek2, MASK—-vek2>0.0) 


(m) INTEGER, DIMENSION(6,4) :: veri 
FORALL (i-1:6:2, j-1:4, i—j>-0) 
veri(i,j)-i-j1t1 
END FORALL 
WRITE(*,20) ((veri(i,j),j21,4),i-1,6) 
20 FORMAT(1x, 416) 


6.25 Bir ankete cevap veren kişilere ait bilgiler CEVAP.DAT isimli kütüğe aşağıdaki 
formatta kaydedilmiştir. (Tamsayılar INTEGER*1I olarak tanımlanacaktır). Bu verileri 
kullanarak aşağıdaki şekilde iki istatistiksel tablo oluşturan bir program yazınız. 
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Sütun Veri 
1-2 Yaşı? Cevapsız 0 (INTEGER :: yas) 
3 Cinsiyeti? Kadın-I, Erkek>2 (INTEGER :: sex) 
d Ev Sahibi mi? Evet-1, Hayır-2, Cevapsız-0 
(INTEGER: :Ev, sahibi) 
5-7 o Geliri (YTL)? Cevapsız-900, Yok-999 (REAL :: Gelir) 
8 Son seçimlerde oy verdiği parti? ANAP-I, AKP—2, CHP-3, DSP-A4, 
DYP-35, Diğer—6, Cevapsız-0 (INTEGER: :parti tercihi) 


1 2 3 4 5 6 
123456789012345678901234567890123456789012345678901234567890 


Gelir (YTL) 


Yaş 5'ten az 5-9 10-14 15-19 19 üstü 


1 2 3 4 5 6 
123456789012345678901234567890123456789012345678901234567890 


Cinsiyet Ev Sahibi Son seçimde oy verdiği parti 


Yaş K E Evet Hayır ANAP AKP CHP DSP DYP Diğer 


30 altı 
30-39 
40—49 
50-59 
60-69 
69 üstü 


BÖLÜM 7 
FONKSİYON/ALT PROGRAM 
OLUŞTURMA VE KULLANMA 


Programlar daha karmaşık ve detaylı hale geldikçe programlamada bazı problemler ortaya 
çıkmaya başlar: 


e Karmaşık problemleri çözmek için gerekli algoritmaları tasarlamak, yapısal bütünlük 
oluşturmak, tüm alternatif ve/veya ayrıntıları hesaba katmak daha da zorlaşır. Özellikle 
programı kullanacak kişi(ler) programı yazan kişi değilse, kullanıcının programa hatalı 
veri girişi, hatalı seçenekler veya yanlış seçenek kombinasyonu kullanması vb hallerde 
kullanıcıya gerekli uyarıları da açık ve net bir şekilde bildirmeyi program tasarımında göz 
önüne almak gerekir; 

e Çoğu kez program algoritması çok iyi tasarlanmış, net bir şekilde bilinse bile, yazılacak 
programın uzun olması durumunda, programlama dilinde kodlamak zaman alır ve 
zorlaşır; 

e Programlar uzayıp daha karmaşık hale geldikçe, programda yapılan mantık hatalarını 
bulmak da güçleşir (çok tecrübeli programcıların bile, uzun ve hacimli programları 
yazarken birçok sentaks ve çalıştırma hatası yapılması olağandır; bu nedenle, hataları 
bulmak da git gide güçleşir); 

e Özellikle başkalarının kullanacağı programlar için, programda sağlanan girdi ve çıktı 
seçenekleri, oObu seçeneklere ogöre neyin nasıl hesaplandığının anlatıldığı 
dokümantasyonların hazırlanması gerekir. Büyük ve uzun programlarda gerekli 
dokümantasyon hazırlama çabaları da artar ve karmaşıklaşır. 


Bu problemler, sadece belirli işleri görmek için yazılan alt programlar (FUNCTION— 
SUBROUTINE) kullanarak kısmen azaltılabilir veya tamamen ortadan kaldırılabilir. 


Bir alt program kendi başına bağımsız bir programdır; ana program ve/veya başka bir alt 
program tarafından kullanılabilir (çalıştırılabilir veya çağırılabilir). Bir alt program girdileri, 
yani yapacağı işlemlerde kullandığı değerlere alt programın argümanları denir, ve değerlerini 
alt programın çağırıldığı ana veya alt programdan alır, hesap veya işleme tabi tutar ve çıktıları 
(sonuçları) onu çağıran programa END FUNCTION/END SUBROUTINE deyimiyle geri 
gönderir. 


FORTRAN programlama dilinde kullanılan ABS, SORT, EXP v.b. fonksiyonlar aslında birer 
FUNCTION alt programlarıdır. Bu alt programlara, esas veya temel (intrinsic) fonksiyonlar da 
denir. Bu tür alt programları programcının hazırlamasına gerek yoktur; FORTRAN 
derleyicileri, standart alt program kütüphanesi veya arşivi içermektedir ve bu arşivde söz 
konusu fonksiyonlar ve ileride değineceğimiz alt programlar mevcuttur. Programcının 
hazırladığı, standart arşiv alt programlarının dışındaki, alt programlara kullanıcı-tarafından 
tanımlanmış (user-defined) alt programlar denir. Bir programcı belirli işleri gören alt 
programları çok sık kullanıyorsa, hazırladığı bu alt programlar ile kendi arşivini oluşturabilir. 
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Alt programlar FUNCTION ve SUBROUTINE olarak iki kategoriye ayrılırlar. Bu 
programların arasındaki benzerlik ve farklılıklara ileride ayrıntılı olarak değinilecektir. Ancak 
en önemli farklılık, kısacası, FUNCTTON'lar çağırılan programlarda, ABS, SORT, EXP v.b. 
arşiv fonksiyonları gibi aritmetik işlem bloğunda kullanılır ve genellikle bir fek sonuç üretir. 
SUBROUTINE”ler çağıran programda CALL deyimi ile çağırılır veya devreye sokulur; ayrıca 
çağıran programa birden fazla sonuç gönderebilir. 


FUNCTION ve SUBROUTINE kullanmanın avantajları; 


e Her alt program, ana programdan bağımsız olarak, hazırlanabilir, derlenebilir ve test 
edilebilir. Böylece bir işlemi yapmak üzere hazırlanan bir program parçasının, büyük 
hacimli bir programa yerleştirilmeden önce doğru çalışıp çalışmadığı teminat altına alınır. 


e Alt programlar, işlev ve amacına uygun başka programlarda da kullanılabilir; örneğin, bir 
programcı bir dizi isimi alfabetik sıraya koyma işlemi için hazırladığı bir programı (bir 
matrisin tersini alan veya iki matrisin çarpımını gerçekleştiren alt program vb) bu işleme 
ihtiyaç duyduğu programlarda kullanabilmesine olanak sağlar. Bu şekilde çok amaçlı 
olarak “kullanılabilir” programların toplam programlama çabalarını azaltır ve program 
hatalarının ayıklanmasını basitleştirir. 


7.1 SUBROUTINE ALT PROGRAMLARI 


Bir alt program türü olan SUBROUTINE/'lerin kullanım amacı açısından farkı, bu tür alt 
programlar birden fazla çıktı değeri hesaplamak için kullanılabilirler. Ama diğer yönlerden 
(ana programdan çağırma şekli hariç) FUNCTION alt programlardan pek farkı yoktur. Bir 
SUBROUTINE çağıran programda CALL deyimi ile devreye sokulur. Aynı FUNCTTON alt 
programlarda olduğu gibi, SUBROUTINE'ler bir tanımlama deyimi ve bir de END 
SUBROUTINE gibi sonuçları ana programa gönderen deyim içerir. SUBROUTINE oluşturma 
genel olarak 


SUBROUTINE alt program ismi(arg 1, arg 2,...,arg n) 
! Giriş/Çıkış Argümanları ile Değişkenlerin Tip tanımları 


! İşlem kısmı 


END SUBROUTINE alt program ismi 


deyim gurubu ile verilir. Buradaki alt program ismi ana programda bir değişken ismi 
olarak atanmamalıdır. Dolayısıyla, alt program ismi için tip tanımlamasına da gerek yoktur; 
fakat bu isim 31 karakteri aşamaz. Alt program isminin ilk karakteri alfabetik bir harf olmak 
üzere, harf ve rakamlardan oluşabilir. Argüman listesi skalar ve/veya indisli değişkenlerden 
oluşabilir. Program içinde ana program dışında ayrı bir yere, genelde ana program sonuna 
(yani END PROGRAM deyiminden sonra) veya MODULE içine yerleştirilir. 


SUBROUTINE alt programları, am ve diğer programlardan bağımsız programlar olduğundan, 
bir programın tüm ana özelliklerini içermelidir (Program başı/sonu, değişkenlerin 
tanımlanması, işlem bloğu vs). Aşağıda bir SUBROUTINE örneği verilmektedir: 
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SUBROUTINE Buyuk (A,B,C,En Buyuk, Toplam) Program Başı 
IMPLICIT NONE 

! Girdiler : A, B, C 

! Çıktılar : En Buyuk, Toplam 


REAL, INTENT(IN) :: A, B, € 

REAL, INTENT(OUT) :: En Buyuk, Toplam Tanımlama Bloğu 
REAL :: ABC 

ABC-A1B1C 

En Buyuk-A 

IF (B>En Buyuk) En Buyuk-B İşlem Bloğu 


IF(C>En Buyuk) En Buyuk-C 
Toplam - AtBHC 
END SUBROUTINE Buyuk İ Program Sonu 


Bu örnekte, A, B ve C gibi üç gerçek sayının en büyüğünü bulmak, ve bu sayıların toplamını 
hesaplamak amaçlanmıştır. Programın girdileri A, B ve C gerçek sayıları, çıktıları da 
En Buyuk sayı ve Toplam'dır. Programın argüman listesindeki değişkenlerin hangilerinin 
girdi (INput) hangilerinin çıktı (OU'Tput) olduğu, tip tanımlama bloğunda INTENT (IN) ve 
INTENT (OUT) olarak belirtilmektedir. Argüman listesinde yer almayan, yalnız alt 
programda kullanılan değişkenler, ABC gibi, programın girdi veya çıktı argümanı 
olmadığından tip tanımlamada IN veya OUT olarak belirtilmez. Bu değişkenlere yerel 
değişkenler adı verilir. Son olarak END SUBROUTINE deyimi ile ana veya çağıran 
programa, çağırıldığı satırdan bir sonraki satıra geri döner. 


Bu örnekteki alt programı kullanan bir ana program şu şekilde verilebilir: 


PROGRAM alt program ornegi 

IMPLICIT NONE 

REAL :: Sayi 1, Sayi 2, Sayi 3, Maximumu, Toplami 
PRINI*, 'Üç adet sayı giriniz' 

READ*, Sayi 1, Sayi 2, Sayi 3 


! Alt programı çağır 

CALL Buyuk(Sayi 1, Sayi 2, Sayi 3, Maximumu, Toplami) 
! Çıktıları yazdır 

PRINT*, 'En büyük sayı -— ', Maximumu 

PRINT*, 'Toplamı - ', Toplami 


END PROGRAM alt program ornegi 
7.1.1 INTENT NİTELİĞİNİN KULLANIMI 


Bir SUBROUTINE'nin değişken listesinin tanımlanmasında, niyet veya amaç anlamına gelen 
INTENT niteliği, bu değişkenlerin girdi, çıktı yoksa hem girdi hem de çıktı amacıyla mı 
kullanıldığını belirtmek için kullanılır. INTENT niteliğinin amacı parantez içinde belirtilir ve 
aşağıda verilen üç durum söz konusu olabilir: 
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INTENT (IN) Girdi içeren sabit/değişkeni alt programa aktarmak için kullanılır. 
INTENT (OUT) Çağıran programa çıktı değerlerini aktarmak için kullanılır. 


INTENT (INOUT) Alt programa hem girdi aktaran hem de çağıran programa çıktı 
göndermek amacıyla kullanılan değişkenlere atanır 


INTENT(IN) olarak tanımlanmış değişkenlerin değerlerini alt program içinde değiştirmek 
mümkün değildir. Ancak INTENT (INOUT) olarak tanımlanmış değişkenlerin değerlerini alt 
program içinde değiştirilebilir. 


PR Bir SUBROUTINE ali programının argüman listesindeki değişkenleri mutlaka 


INTENT niteliğini belirtiniz! 


INTENT(INOUT) kullanımını ele alan bir örnek aşağıda verilmiştir. Alt programa 
gönderilen x ve y değişkenlerinin sayısal değerlerinin kendi aralarında değiştirilmesi işlemini 
yapmaktadır. Bu işlemi yapmak için şöyle bir algoritma uygulayacağız: x-3 ve y-5 olsun; 
yzx dersek y-3 olur. Daha sonra x—y dersek, y'nin değeri 3 olduğu için x'in değeri de 3 
olacaktır. Değişkenlerin sayısal değerlerin yerlerini değiştirmek mümkün olmadı! Bu nedenle 
yeni bir değişkene (T gibi) daha ihtiyacımız vardır: T—x-3 alırsak, x—y ile x—-5 değerini 
alır. Şimdi y>T ataması ile y-3 değerini alır. Burada x ve y alt programa “girdi” olarak 
temin edilmektedir; ancak bu değerler girdi değerlerinden farklı değerlere değiştirileceği ve 
tekrar “çıktı” amacıyla kullanılacağı için, aşağıdaki programda, x ve y hem girdi hem de 
çıktı amacıyla kullanılmaktadır. 


SUBROUTINE Degistir(Xx,y) 
IMPLICIT NONE 


REAL, INTENT(INOUT) :: Xx, y 
REAL :: T 

Tx lo TE x 

x-Y ! x € y 

yzT ! y € T 


END SUBROTINE Degistir 


SUBROUTINE alt programını ana programdan veya bir başka alt programdan çağırma 
işlemine gelince, SUBROUTINE alt programının adı fonksiyon gibi bir değere 
atanmadığından, çağırma anlamına gelen CALL deyimi kullanılır. Genel kullanım şekli, 


CALL alt program ismi(arg 1, arg 2,...,arg n) 


olarak verilmektedir. Bu deyim başka bir program içinde kullanıldığında argümanlar otomatik 
olarak SUBROUTINE içindeki argümanlarla yer değiştirir. Alt program içindeki işlemler 
yapıldıktan ve sonuçlar elde edildikten sonra ana programa geri dönülür. 
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7.1.2 ALT PROGRAMLARA DEĞİŞKEN AKTARIMI 


FORTRAN programları, alt programlar ile referansa-göre-geçiş adını verdiğimiz bir sistem 
ile iletişim kurar. Alt programlardaki değişken listesi ile oluşturulan bellek alanları ile alt 
programa gönderilen değerler bire-bir eşleştirilir. Örneğin, aşağıda verilen programda, ana 
programdaki a(i) indisli değişkeni, alt programdaki u(i) indisli değişkeni ile eşleştirilir; 
yani a(i) 3u(i). Benzer şekilde ana programdaki x ve sayi değişkenleri alt prog- 
ramdaki v ve z değişkenleriyle eşleştirilir (X->v, sayi-z). 


PROGRAM deneme Hafıza Ana Alt 
IMPLICIT NONE Adresi Program (Program 
REAL :: Xx, a(5) 
INTEGER :: sayi 001 a(l) u(1) 
ir 002 a(2) : u(2) 
CALL alt program(a,x,sayi) 003 a(3) : u(3) 
ei 004 a(4) : u(4) 
END PROGRAM deneme 005 a(5) ; u(5) 
SUBROUTINE alt program(u,v,z) 006 Xx v 
IMPLICIT NONE 007 sayi : z 


REAL, INTENT(OUT) ::v 
REAL, DIMENSION(4) ,INTENT(IN) ::u 
INTEGER, INTENT(INOUT) ::z 


END SUBROUTINE alt program 


Iz Ana veya alt programdan, bir alt programa aktarılan argümanların tipleri, 


indisli değişken ise boyutları bire-bir uyuşmalıdır! 


Alt programa aktarılan indisli değişkenlerin boyutu DIMENSTION (5) gibi açık ve net bir 
şekilde belirtilmiş ise ana programda tanımlanmış bellekte belirtilen boyut kadar yer ayrılır. 
Ancak boyut belirtilmez ise, çağıran ana veya alt programdaki boyut “varsayılan boyur” kadar 
yer ayrılır. Örneğin, alt programda DIMENSION (*) şeklinde boyut vermek ile a indisli 
değişkeni için 100 gerçek sayı, b indisli değişkeni 45 tamsayı bellek alanı ayrılmış 
olmaktadır. 

PROGRAM ornekl 

IMPLICIT NONE 

REAL, DIMENSION(100) :: x deger 

INTEGER, DIMENSION(45) :: n deger 


CALL alt programl(x deger,n deger) 
END PROGRAM ornekl 

SUBROUTINE alt programl(a,b) 
IMPLICIT NONE 

REAL, DIMENSION(*) :: a 


INTEGER, DIMENSION(*) :: b 


END SUBROUTINE alt programl 


152 BÖLÜM 7. FONKSİYON/ALTPROGRAM OLUŞTURMA VE KULLANMA 


FORTRAN derleyicisi ana/alt programlara veri aktarımında kullanılan indisli değişkenlerin 
alt ve üst sınırlarının uyuşup uyuşmadığını kontrol eder; boyut uyuşmazlığının olması halinde 
“array out of bounds” gibi bir hata mesajı verir. 


yoluna gitmeyiniz. İndisli değişkenlerin alt ve üst sınırı açık bir şekilde veril- 
melidir. 


Pa Alt programlara indisli değişken aktarırken, varsayılan boyut tanımlaması 


CALL deyimindeki argümanlara ayrılan sahada aritmetik işlem de yapılabilir. Örneğin, 


CALL alt program(2.*xty,SORT(x-—y),v**2,. . .) 
burada ilk argüman 2x4 y, ikincisi (x— y ve üçüncüsü v?'dir. 


ÖRNEK 1: Mevcut kişiden oluşan bir sınıftaki öğrencilerin boyları Boylar (i) indisli 
değişkeni ile temsil edilsin. Bu sınıftaki öğrencilerin boy ortalamasını (Boy Ort) ve 
boyların standart sapmasını (S Sapma) hesaplayan bir SUBROUTINE yazınız. Standart sapma 
formülü 


1 Mevcut 2 
SSapma- |—— — (Boylar (1) -Boy. Ort) 
Mevcut-1 45 


ile verilmektedir. 
SUBROUTINE Boylar (Mevcut,Boylar,Boy Ort, SSapma) 


IMPLICIT NONE 
! Değişkenler ve Tanımları 


I o Mevcut : Sınıf mevcudu 

!I Boylar : Boyların kayıtlı olduğu indisli değişken (Uzunluğu 
! Mevcut kadardır) 

!I Boy Ort : Boy ortalaması 

I SSapma : Standard Sapma 

| 

INTEGER, INTENT(IN) :: Mevcut 

REAL, DIMENSION (Mevcut) ,INTENT(IN) :: Boylar 
REAL, INTENT(OUT) :: Boy O0rt-0.0, Sapma-0.0 
INTEGER :: i 

! Ortalama Hesap Bloğu 


DO izl, Mevcut 
Boy Ort-Boy Ort *t Boylar(i) 
END DO 
Boy, Ort-Boy, Ort /REAL (Mevcut) 
! Standard Sapma Hesap Bloğu 
DO izl, Mevcut 
SSapma-Sapma t(Boylar(i)-Boy Ort) **2 
END DO 
SSapmazSÇORT (SSapma/REAL (Mevcut-—1) ) 
END SUBROUTINE Boylar 
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ÖRNEK 2: 50 kişilik bir sınıftaki öğrencilerin 1. ve 2. vize (Vize 1 ve Vize 2), ödev 
(Odev) ve final (Final) sınavları NOTLAR.DAT isimli bir kütükte kayıtlı bulunmaktadır. 
Bu notları okuyacak, her sınav ve ödev için sınıf ortalamasını ve standart sapmasını 
hesaplayacak bir program yazınız. 


Örnek İde hazırlanan BOYLAR alt programı bu iş için pekala kullanılabilir. Bu durumda, 
program aşağıdaki şekilde yazılabilir. 


PROGRAM Not Ortalama 


IMPLICIT NONE 

INTEGER :: Mevcut, i 

REAL, DIMENSION(50) :: Vize 1, Vize 2, Odev, Final 
REAL :: Ortalama, Sapma 


! — Veri okuma amacıyla kütük açma işlemi 

OPEN (UNITZ—10,FILEZ'NOTLAR.DAT', STATUSZ—'OLD') 
! — Verileri oku 
READ (10, *) Mevcut 
DO izl, Mevcut 
READ(10,*) Vize 1(i), Vize 2(i), Odev(i), Finalfi) 
END DO 
! 1. vize notları ortalaması 
CALL Boylar (Mevcut, Vize 1, Ortalama, SSapma) 
CALL Yazdır('l1.Vize',Ortalama, SSapma) 
! 2. vize notları ortalaması 
CALL Boylar (Mevcut, Vize 2, Ortalama, SSapma) 
CALL Yazdır('2.Vize',Ortalama, SSapma) 
| Ödev notları ortalaması 
CALL Boylar (Mevcut, Odev , Ortalama, SSapma) 
CALL Yazdır('Ödev ',Ortalama, SSapma) 
! Final notları ortalaması 
CALL Boylar (Mevcut, Final , Ortalama, SSapma) 
CALL Yazdır('Final ',Ortalama, SSapma) 
END PROGRAM Not Ortalama 
ı 
SUBROUTINE Yazdir(CA, Ortalama, SSapma) 
IMPLICIT NONE 
REAL, INTENT(IN) :: Ortalama, SSapma 
CHARACTER (LEN-6) , INTENT(IN) :: CH 

WRITE (6,5) CH 
WRITE (6, 7) Ortalama, SSapma 

5 FORMAT(/5X,A6,3X,' ICIN',/,5X,14('-')/) 
7 FORMAT(5X, 'ORTALAMA-',F9.6,5X, 'STANDARD & 

SAPMA-',F9.6) 
END SUBROUTINE Yazdir 


Bu program ile Vize 1, Vize 2, Odev ve Final için 4 kez hesaplanması gereken 
Ortalama ve SSapma bir alt program yardımıyla hesaplanmıştır. Her alt program 
çağrısından çıktıktan sonra çıktı değerleri yazdırılarak, daha az değişken kullanımı ve 
dolayısıyla daha az bellek gerektirmiştir. Benzer şekilde Yazdir isimli alt program ile 
yazdırma işlemi kısaltılmıştır. 
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ÖRNEK 3: z-—x1iy karmaşık sayısının büyüklüğünü İzl — Yx74y7 ve argümanını 
are(2) tan İ(y/x) bağıntılarına göre hesaplayan bir SUBROUTINE hazırlayalım. 


Problemi programlamadan önce “nelere ihtiyacımız var?” bunları tesbit edelim. Öncelikle, x 
ve y değerlerine (girdiler) ihtiyacımız olduğu aşikardır. Bu değerleri kullanarak büyüklüğü 
Buyukluk ve argümanını Arguman (çıktılar) hesaplayabiliriz. 


PROGRAM Sanal SAYI 
IMLICIT NONE 
REAL :: Xx, y, Buyukluk, Arguman 
PRINI*, 'X ve Y yi Giriniz ' 
READ*, Xx, y 
CALL KOMPLEX(x, y, Buyukluk, Arguman) 
PRINT*, 'BÜYÜKLÜK- ',Buyukluk 
PRINT*, 'ARGÜMAN -— ',Arguman 
END PROGRAM Sanal SAYI 
l 


SUBROUTINE Komplex(xx, yy, MutlakZ, Arg) 


IMPLICIT NONE 

REAL, INTENT(IN) :: xx ! Gerçek kısım 

REAL, INTENT(IN) :: yy ! Sanal kısım 

REAL, INTENT(OUT):: Mutlakz ! Büyüklük 

REAL, INTENT(OUT):: Arg ! Argüman 

! Sabit tanımı 

REAL :: pi-3.14159 

MutlakZ —- SORT(xx*xxtyy*yy) 

Arg ATAN (yy/xx) ! Burada ATAN2” de kullanılabilirdi 


IF(XX<0.0.AND.YY>0.0) Arg - Arg t pi 
IF(XX<0.0.AND.YY<0.0) Arg - Arg - pi 
END SUBROUTINE Komplex 


Oysa problem mesela, karmaşık sayının düzlemde bulunduğu bölgenin tespiti gibi bir ikinci 
parametrenin hesabını da gerektiren şekilde tasarlamak istersek, bu durumda koordinat 
sistemindeki bölgeleri Bolge (1-1.bölge, 2—2.bölge, v.s) ile temsil ederek, program yeniden 
aşağıdaki şekilde düzenlenebilir. 


PROGRAM Sanal SAYI2 

IMPLICIT NONE 

REAL :: Xx, y, Buyukluk, Arguman 

INTEGER :: Bolge 

PRINTI*, 'X ve Y yi Giriniz ' 

READ*, Xx, y 

CALL KOMPLEX(x,y,Bolge,Buyukluk,Arguman) 
PRINT*, 'BÜYÜKLÜK- ',Buyukluk 

PRINT*, 'ARGÜMAN - ',Arguman 

PRINT*, ' Sayı ',Bolge, ' ci bölgededir' 
END PROGRAM Sanal SAYI2 
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SUBROUTINE Komplex(xx, yy, Bolge, MutlakZ, Arg) 


IMPLICIT NONE 

REAL, INTENT(IN) :: xx ! Gerçek kısım 
REAL, INTENT(IN) :: yy ! Sanal kısım 
REAL, INTENT(OUT):: Mutlakz ! Büyüklük 
REAL, INTENT(OUT):: Arg ! Argüman 
INTEGER, INTENT (OUT) : :Bolge ! Bölge belirteci 
REAL :: pi-3.14159 

MutlakZ —- SORT(xx*xxtyy*yy) 

Arg — ATAN(yy/xx) 


IF(XX>0.0.AND.YY>0.0) Bolge-l 
IF(XX<0.0.AND.YY>0.0) THEN 
Arg-Argtpi 
Bolge-2 
END IF 
IF(XX<0.0.AND.YY<0.0) THEN 
Arg-Arg-pi 
Bolge-3 
ENDIF 
IF(XX>0.0.AND.YY<0.0) Bolge-4 
END SUBROUTINE Komplex 


71.33 SAVE NİTELİĞİ VE DEYİMİNİN KULLANIMI 


FORTRAN 90/95 standartlarına göre bir alt programdan END SUBROUTINE ile çıkıldığında 
yerel değişkenler tanımsız hale gelir. Bir program içinde aynı alt program tekrar 
kullanıldığında, yerel değişkenlerin en son aldıkları değerler aynı olabilir veya olmayabilir. 
Bu farklılığın nedeni kullanılan derleyicinin özelliklerinden kaynaklanır. Bir alt programdaki 
“yerel” değişkenlerin her kullanımında, bir önceki çağırılışındaki değerlerini korumak 
istiyorsak SAVE niteliğinden yararlanmalıyız. SAVE niteliği, aynı diğer niteliklerde olduğu 
gibi, tip tanımlama bloğunda kullanılır. 


PROGRAM save ornek 

IMPLICIT NONE 

REAL :: a, b, c, d 
az1.0; bzs3.0 

CALL alt pr(a,c) 

PRINT*, a,b,c 

CALL alt pr(b,d) 

PRINTI*, b,c,d 

END PROGRAM save ornek 

SUBROUTINE alt pr(a,c) 


IMPLICIT NONE 

REAL, INTENT(IN) :: a 

REAL, INTENT(OUT):: c 

REAL, SAVE :: b ! b'nin yerel değişken olduğuna dikkat edin 
b-a*atb ! ilk kullanımda b-0'dır 

c-atb 


END SUBROUTINE alt pr 
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Programının alt pr programı ilk kez kullanıldığında b->1*140-1, c-141-2 
olmaktadır. b'nin değeri (yani 1) korunmaktadır. Alt program ikinci kez kullanıldığında 
b-3*341 (önceki kullanımda b-1 idi)—10, c->3410-13 olmaktadır. 


bir kez daha kullanıldığında, değişkenlerin en son aldıkları değerler korunmuş 
olur. 


Ye Bir alt programda SAVE niteliği ile tanımlanan yerel değişkenler, alt program 


FORTRAN aynı zamanda SAVE deyimi şeklinde de kullanılmaktadır. Bir alt programın 
değişken tanımlama kısmında yer alır ve icra-edilemeyen bir deyimdir. SAVE deyimi ile 
tanımlanan herhangi bir yerel değişkenin değeri, alt programın her çağırılışında değişmez. 
SAVE deyimi ile değişken tanımlanmamış ise tüm yerel değişkenlerin değeri alt programın 
çağırıldığında değişmez. 


Genel kullanım şekli 


SAVE :: değişken 1, değişken 2,..., değişkenn 


veya tanımlama bloğunda kısaca 


SAVE 


şeklinde kullanılır. 
7.2 FONKSİYON ALTPROGRAMLARI 


FORTRAN dilinde müsaade edilen fonksiyon türleri harici, aritmetik deyim ve arşiv 
fonksiyonları olmak üzere üç türlüdür. Ancak her üç tür için kullanımları neticesinde 
fonksiyon tek bir sonuç verir. 


Örneğin, ABS, SORT, EXP v.b. arşiv fonksiyonları olduğundan daha önce bahsetmiştik. 
Program içinde aşağıdaki gibi kullanıldıklarında sonuç tek''tir: 


Y—SORT (A*A*B*B) 
Veya 


Z-SIN(1.*EXP (-X)) 
ifadeleri Y ve Z sayısal değerlerine eşittir. 


Bu örnekte takip edilen işlem, ilk önce SORT altprogramı çağırılır. Daha sonra A*A4B*B 
değeri hesaplanır ve bu değer alt programın argümanı olarak karekök işleminin tarif edildiği 
SORT fonksiyonuna aktarır. Alt program çalıştırılır-yani karekök işlemi hesaplanır-ve işlem 
sonucu çağıran programa (ana veya alt program olabilir) geri gönderilir. 
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Bir harici (external) fonksiyon FUNCTION deyimi ile tanımlanan ve END FUNCTION 
deyimi ile son bulan bir programdır. FUNCTTON alt programı, herhangi bir arşiv fonksiyonun 
programda çağırıldığı yöntemle çağırılır ve kullanılır. Çağırma cümlesindeki değişken 
listesinin yani FUNCTION argüman listesindeki değişken listesindeki isimler ile aynı olması 


gerekmez. Sadece tiplerinin ve sırasının aynı olmasına dikkat edilmelidir. Genel kullanım 
şekli aşağıda verilmiştir; 


FUNCTION fonksiyon ismi (argüman listesi) Fonksiyon Başı 
IMPLICIT NONE 

e Tip Tanımlama 
! Değişken tip tanımlamaları 


fonksiyon ismi-ifade 


! İşlem kısmı | İşlem Bloğu 
l Fonksiyona Değeri atama 


END FUNCTION fonksiyon ismi Fonksiyon Sonu 


Örneğin, 
REAL FUNCTION En Buyuk (A,B,C) 
REAL, INTENT(IN) :: A, B, C 


END FUNCTION En Buyuk 

şeklindeki bir FUNCTTON alt programı, ana programda aşağıdaki gibi kullanılabilir: 
REAL :: A, TI, 12, T3 
A-En Buyuk (T1,72,73) 

bu durumda A değilken TI, T2 ve T3'ün en büyüğüne eşit olacaktır. 


Örneğin, A, B ve C gibi üç adet sayının büyük olanını bulmak için bir fonksiyon programı 
işlemleriyle beraber aşağıda verilmiştir. 


FUNCTION En Buyuk (A,B,C) 
IMPLICIT NONE 
REAL, INTENT(IN) :: A, B, C 
REAL :: En Buyuk 
En Buyuk-A 
IF(En Buyuk<B) En Buyuk-B 
IF(En Buyuk<C) En Buyuk-C 
END FUNCTION En Buyuk 


Fonksiyon ismi olan En Buyuk gerçek değişkeni alt program çıkışında en büyük değere 
atanmıştır. 
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Bir başka örnek de n! hesabı için verilebilir: 


INTEGER FUNCTION Faktoriyel(n) 

IMPLICIT NONE 

INTEGER, INTENT(IN) :: n 

INTEGER :: i 

Faktoriyel-1 

DO izl,n 
Faktoriyel-Faktoriyel*i 

END DO 

END FUNCTION Faktoriyel 


FUNCTTON alt programlarında dikkat edilecek noktalara şunlardır: 


veya 


Alt programın ilk satırında mutlaka FUNCTTON tanımlama cümlesi yer almalıdır. 


Fonksiyon alt programının ismi, değişken isim tanımlama kurallarına tabidir ve bu 
kurallara uygun olmalıdır; yani en fazla 31 karakter uzunlukta olmalı ve ilk karakter 
bir harf olmalıdır. 

Bir alt program kendi başına ve bağımsız tam bir programdır. Fonksiyonun 
argümanları REAL, INTEGER, CHARACTER v.s olarak tipleri tanımlanmalı, normal 
programlar gibi varsa tip belirteçlerine (INTEGER, REAL, DIMENSTON v.b.) sahip 
olmalıdır. 


Arşiv fonksiyonları ve/veya başka kullanıcı tarafından hazırlanmış alt programlar 
çağırılıp kullanılabilir. 


Alt programda kullanılan değişken isimleri ve format numaraları sadece alt program 
içinde geçerlidir; bu değişkenler veya numaralar dışarıdaki programlar tarafından 
algılanmadığından ana ve diğer alt programların değişkenlerinden etkilenmezler. 


Fonksiyonun ana programla ilişkisi sadece fonksiyon için kullanılan argümanlar 
aracılığı ile olmaktadır. Argüman listesi ile oluşturulan bellek alanları, ana veya diğer 
alt programlarda, bu listeye atanan değişkenler ile paylaşır. 


Her FUNCTION alt programı mutlaka en az bir argümana ve END FUNCTION 
deyimine sahip olmalıdır. 


FUNCTION”lar sadece sayısal hesap yapmak için kullanılmazlar; karakter, mantıksal, 
tamsayı, v.s tiplerini de alabilirler. Bu durumda fonksiyonun tipi FUNCTION 
teriminden önce veya alt program içinde tip bildirme bloğunda belirtilmelidir. 
Örneğin, uzunluğu 15 karakter olan A ve B alfa sayısal değişkenlerini argüman olarak 
alıp, bunları birleştiren bir fonksiyon aşağıdaki şekilde tanımlanabilir: 


CHARACTER (LEN—31) FUNCTION Birlestir(A,B) 
CHARACTER(LEN-15), INTENT(IN) :: A, B 
Birlestir-A//' '//B 

END FUNCTION Birlestir 


FUNCTION Birlestir(A,B) 
CHARACTER(LEN-31) :: Birlestir 
CHARACTER(LEN-15), INTENT(IN) :: A, B 
Birlestir-A//' '//B 

END FUNCTION Birlestir 
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ÖRNEK 4: Cfn,r) kombinezonunu herhangi bir n ve r için hesaplayan bir program yazınız. 


Bu bölümde, daha önceki kısımlarda, tanımlanmış olan Faktoriyel harici fonksiyonunun 
kullanımıyla ana program oldukça basitleşir. C(n,r) —n!/rI(n—r)! 


PROGRAM kombine 

IMPLICIT NONE 

INTEGER :: C, N, R, Faktoriyel 

PRINT*, 'N ve R yi Giriniz' 

READ*, N, R 

CsFaktoriyel (N) / (Faktoriyel (R) *Faktoriyel (N—R) ) 
WRITE(*,12) N, R, C 

12 FORMAT(3X,'C(',12;','ş12,')- ";ş17) 

END PROGRAM kombine 


Burada Faktoriyel (N) —n! Faktoriyel (R) -r! ve Faktoriyel (N-R)-(n—r)''e karşı- 
lık gelmektedir. Daha önce verilmiş olan Faktoriyel fonksiyonu kullanılmıştır. Harici 


fonksiyonlar, aynı SIN, COS, EXP kütüphane fonksiyonları gibi çeşitli aritmetik işlemlere 
tabi tutulabilmektedirler. 


7.2.1 FUNCTION ALT PROGRAMLARINDA İNDİSLİ DEĞİŞKEN KULLANIMI 


FUNCTTION alt programlarında argüman olarak indisli değişken(ler) kullanılabilir. Buna göre, 
alt programı çağıran cümledeki argümanlarda indisli bir değişken yer almalıdır; yani 
kullanılan argümanlar ayrıca DIMENSTON tanımlanmış olmalı, hem alt programda ve hem de 
ana programda boyutlandırılmalıdır. Örneğin, aşağıda verilen, 25 adet gerçek sayının içinde 
en büyük değerin bulunması işlemini yapan, programı ele alalım: 


PROGRAM Buyuk 

IMPLICIT NONE 

REAL, DIMENSION(25) :: x 

REAL :: Buyuk Sayi 

READ(5,*) x 

Buyuk Sayi-En Buyuk, Sayi (Xx) 

WRITE(6,20) Buyuk Sayi 

20 FORMAT(1X,'En Büyük Sayı —- ',2X,F8.2) 
END PROGRAM Buyuk 


REAL FUNCTION En Buyuk Sayi (a) 
IMPLICIT NONE 


REAL, DIMENSION(25), INTENT(IN) :: a 
INTEGER :: k 
En Buyuk Sayiz-a(1) ! İşlem bloğu 
DO k-2,25 

IF(En Buyuk Sayi<a(k)) En Buyuk Sayi-a(k) 
END DO 


END FUNCTION En Buyuk Sayi 


Görüldüğü gibi her iki programdaki indisli değişken boyutu 25'tir. Aslında alt programdaki 
indisin üst sınırı 25'dir; yani bu indis üst sınırı çağıran programdaki indisli değişkenin 
maksimum boyutunu aşmamalıdır. Buradan yola çıkarak, alt programlarda değişken 
boyutlamaya izin verilir. Buna örnek olarak; 
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REAL FUNCTION En Buyuk Sayif(a,n) 
IMPLICIT NONE 
INTEGER, INTENT(IN) :: n 
REAL, DIMENSION(n), INTENT(IN) :: a 
INTEGER :: k 
En Buyuk Sayi-a(1) 
DO k>2,n 
IF(En Buyuk Sayi<a(k))En Buyuk Sayi-a (k) 
END DO 
END FUNCTION En Buyuk Sayi 


programı verilebilir. Bu örnekte görüldüğü gibi a indisli değişkeni DIMENSTON (n) ile 
FUNCTTION deyiminde boyutu değişken (çağıran programda belirlenen değerle sınırlı) olarak 
verilmektedir. Bu durumdaki boyutlamaya ayarlanabilir boyutlama adı verilir. Böylece alt 
programa indisli değişkenin sadece arzu edilen sayıda elemanı aktarılır. 


7.33 RECURSIVE ALT PROGRAMLAR 


Normalde bir Fortran alt programı içinde, aynı alt program kullanılamaz; diğer bir deyişle, iç 
içe ardışık bir şekilde kullanılmaz. Ancak bazı problem guruplarında fonksiyonları ardışık 
olarak kullanmak söz konusu olabilmektedir. Örneğin, faktoriyel ifadesi 


nn—)! nzl 
n!— 
1 nz0 


şeklinde tanımlanabilir ve bu fonksiyon ardışık bir şekilde programlanabilir. Ardışık işlem 
yapılması arzulanan alt programın başına, ardışık anlamına gelen RECURSIVE tip tanımı 
konur. Aşağıda yukarıda verilen tanıma uygun, faktoriyel hesabını yapan, bir SUBROUTINE 
verilmiştir. Herhangi bir alt programa benzemekle beraber program başında RECURSIVE tip 
tanımına yer verilmiştir ve Faktoriyel alt programına, programın kendi içinden de 
erişilmektedir. 


RECURSIVE SUBROUTINE Faktoriyel(n, sonuc) 
IMPLICIT NONE 


INTEGER, INTENT(IN) ::'n ! Faktoriyeli hesaplanacak değer 
INTEGER, INTENT(OUT) :: sonuc ! Sonuç —>n! 
INTEGER :: gecici ! Geçici değişken 


IF(n>21) THEN 
CALL Faktoriyel(n—1I, gecici) 
sonuc -n * gecici 
ELSE 
sonuc — 1 ! nz0 ise 
END IF 
END SUBROUTINE Faktoriyel 


Bir fonksiyon kendi kendini çağırıyorsa eşitliğin solunda ve sağında da fonksiyon ismi 
kullanılacağından bir karmaşaya sebep olacağı kesindir. Fortran dilinde bu karışıklığa yol 
açmamak için iki farklı isim tanımlamamıza olanak sağlar. Fonksiyonu kullanmak isterken 
fonksiyonun ismini, bir fonksiyon alt programı çıkışında değer atamaya ise ikinci ismini 
kullanırız. Bu özel isim FUNCTION deyiminde RESULT cümlesi ile belirtilir. 
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Aşağıda RECURSIVE FUNCTION ile faktoriyel hesabını yapan alt program verilmiştir. 
RESULT kullanıldığında, fonksiyon ismine (faktoriyel) tip tanımlaması yapılmayabilir; 
ama ikinci isimin tipi (cevap) tanımlanır. 


RECURSIVE FUNCTION faktoriyel(n) RESULT (cevap) 
IMPLICIT NONE 
INTEGER, INTENT(IN) :: n ! Faktoriyeli hesaplanacak değer 
INTEGER :: cevap ! Sonuç >n! 
IF (n >s1) THEN 
cevap - n * faktoriyel(n-1) 
ELSE 
cevap —- 1 ! nz0 ise 
END IF 
END FUNCTION faktoriyel 


7.4 PURE VE ELEMENTAL ALT PROGRAMLAR 


Fortran programlama dili son on on beş yılda paralel işlemcilerde çok daha hızlı 
kullanabilmek için sürekli değişim göstermiştir. Bu değişimin bir parçası olarak alt 
programlar, saf (PURE) ve elementsel (ELEMENTAL) alt programlar adı altında iki türlü 
sınıflandırmaya tabi tutulmuştur. 


7.4.1 PURE ALT PROGRAMLAR 


Fortran dilinde kullanılan alt programların argüman listesinde yer alan değişkenler, bazen 
program içerisinde değiştirilmekte ve giriş değeri bozulabilmektedir. Bazı programlarda arzu 
edilmeyen bu işlem, programın istenen şekilde çalışmasını etkiler. PURE programların bu tür 
yan etkileri yoktur; yani programın giriş değişkenlerini, kullanıcının istemi-dışında 
değiştirmezler. Buna ilave olarak, PURE programların doğası gereği, yerel değişkenlerin 
SAVE niceliği ile tanımlanmalarına artık gerek yoktur, çünkü PURE olarak tanımlanan 
program her değişkeni otomatik olarak SAVE niteliği ile korumaktadır. PURE programlar 
tarafından çağırılan diğer alt programların da PURE olması gerekir. 


PURE programların yukarıda bahsedilen yan etkileri olmadığından dolayı aynı derecede icra 
edilen FORALL yapısını kullanmak güvenlidir. PURE fonksiyon programlarında her argüman 
INTENT(IN) olarak tanımlanmalı, alt programda STOP deyimi kullanılmamalı ve alt 
program içinde giriş/çıkış (Input/Output) işlemleri yapılmamalıdır. Örneğin, üç sayının 
aritmetik ortalamasını veren bir PURE fonksiyon aşağıdaki şekilde verilebilir: 


PURE FUNCTION ortalama(a, b, cc) 
IMPLICIT NONE 
REAL, INTENT(IN) :: a, b, c 
REAL :: ortalama 

Ortalama — ( a *# b $ c ) /3.0 
END FUNCTION ortalama 


PURE Subroutine alt programlarının da söz konusu yan etkileri yoktur. Fonksiyon 
programlarına uygulanan kısıtlamalar bu alt programlar için de geçerlidir, ancak 
değiştirilmesine müsaade edilebilecek argümanları INTENT (IN) veya INTENT (INOUT) 
belirteçleri ile tanımlanmalıdır. 
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Örneğin, üç sayının aritmetik, harmonik ve geometrik ortalamalarını hesaplayan bir alt 
program aşağıda verilmiştir: 


PURE SUBROUTINE ortalamalar(a, b, c, & 
Aritmetik, Harmonik, Geometrik) 

IMPLICIT NONE 

REAL, INTENT(IN) :: a, b, c 

REAL, INTENT(OUT) ::Aritmetik, Harmonik, Geometrik 
Aritmetik- ( a # b * c )/3.0 
Harmonik > 3.0/( 1.0/a t 1.0/b t 1.0/c ) 
Geometrik- (a * b *c )**(1./3.) 

END SUBROUTINE ortalamalar 


7.4.2 ELEMENTAL ALT PROGRAMLAR 


Elementsel alt programlar skalar (tek değerden oluşan) argümanlar için tanımlanır; ancak 
indisli değişkenler için de kullanılabilir programlardır. Elementsel fonksiyonun değişken 
listesi skalar ise fonksiyonun sonucu da bir skalar olacaktır. Bu fonksiyonun değişken 
listesine indisli değişken verilirse, fonksiyonun sonucu da aynı boyutlu bir indisli değişken 
olacaktır. Örneğin 


PROGRAM Skalar 

IMPLICIT NONE 

REAL :: x, Fon 

READ*, Xx 

PRINT*, 'x-',x, 'Fonksiyon-',Fon(x) 
END PROGRAM Skalar 


ELEMENTAL REAL FUNCTION Fon(X) 

IMPLICIT NONE 

REAL, INTENT(IN) ::x 
Fon-x*x1t3. 

END FUNCTION Fon 


Programına x-1 girildiğinde çıktısı Fonksiyonz4.000000 olacaktır. Fakat ana programı 
aşağıdaki şekilde değiştirdiğimizde, her x değeri için fonksiyon işlemlerini yapacaktır. 


PROGRAM Indisli 

IMPLICIT NONE 

REAL, DIMENSION(4) :: x-(/1.,2.,3.,4./), Fon 
PRINT*, 'x-',x, 'Fonksiyon-',Fon(x) 

END PROGRAM Indisli 


Yani, x-1 için4.,x-2için7.,x-3için12., ve x-4 için 19. getirecektir. 
SUBROUTINE alt programları da ELEMENTAL olarak tanımlanabilir. 


ELEMENTAL SUBROUTINE altprog(a,b,c,d) 
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7.43 EXTERNAL DEYİMİ 


Bir alt programın ismi, argümanlar listesinde bulunan başka bir alt programı çağırabilmesine 
olanak veren bir deyimdir. Bunun için kullanılan alt programın ismi çağırılan alt programın 
argümanlar listesinde yazılması ve Türkçe karşılığı harici olan EXTERNAL deyiminde 
bulunması gerekir. Genel kullanım şekli, 


EXTERNAL alt prog 1 |,alt prog 2,...| 


olarak verilmektedir. Burada alt prog bir harici alt program (FUNCTION veya 
SUBROUTINE) ismidir. Bu deyimin kullanılmasında dikkat edilmesi gereken kurallar 
şunlardır: 


e Bir harici alt program, bir başka alt programın argümanlar listesinde bulunuyorsa, bu 
alt program ismi ayrıca EXTERNAL deyimi ile tanımlanmalıdır. EXTERNAL 
kullanımına örnek olarak herhangi bir FonkX(x) fonksiyonunun Ja, b| aralığında 
DX artırımlarla değerlerini tablo halinde yazan bir program ele alalım. Program için 
PROGR isimli bir SUBROUTINE ve EX isimli bir harici fonksiyon kullanılmıştır. 
Program incelendiğinde alt ve ana programda FonkX 'in, EXTERNAL deyimi ile 
tanımlandığı görülmektedir. 


PROGRAM harici 
IMPLICIT NONE 
EXTERNAL FonkX 
REAL :: az0.0, bz1.0, DX20.1 
CALL PROGR(FonkX, a, b, DX) 
END PROGRAM harici 
SUBROUTINE PROGR(FX,T1,T2,T3) 
IMPLICIT NONE 
EXTERNAL FX 
REAL, INTENT(IN) :: TI, T2, T3 
REAL :: X, Y, EX 
INTEGER :: N, i 
N—(T2-T1) /T34*1 
DO izO,N 
X-I*T3; Y-FX(X); WRITE(6,2) X,Y 
END DO 
2 FORMAT(5X,F7.3,5X,F9.5) 
END SUBROUTINE PROGR 
REAL FUNCTION FonkX(x) 
IMPLICIT NONE 
REAL, INTENT(IN) :: x 
FonkX—X*X12.0*X-1.0 
END FUNCTION FonkX 


e Eğer kullanıcının hazırladığı alt program, arşiv fonksiyonlarından herhangi biri ile 
aynı ismi taşıyorsa, bu alt program isminin EXTERNAL deyiminde verilmesi kullanıcı 
programının kullanılacağını, arşiv fonksiyonu kullanılmayacağı anlamına gelir. 
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7.5 MODULE KULLANIMI İLE PROGRAMLAR ARASINDA VERİ 
PAYLAŞIMI 


Bu kısma kadar, ana veya alt programlardan başka alt programlar arasında veri paylaşımının 
argüman listesindeki değişkenler aracılığı ile yapıldığını öğrendik. Ancak ana veya alt 
programlara, argüman listesi dışında, değişken girdi/çıktı paylaşımı modül (MODULE) 
oluşturularak da yapılabilir. Bir modül, MODULE deyimi ile başlar ve END MODULE ile 
kapatılarak, oluşturulur. Programda her modül için en fazla 31 karakterden oluşan bir isim 
verilir ve bir programda birden fazla modül kullanılabilir. SAVE deyiminin kullanılması 
halinde modül içinde yer alan sabit veya değişkenlerin değerlerinin farklı alt programlara 
giriş/çıkışlarda korunmasını, yani değiştirilmemesini, sağlar. MODULE ayrıca alt programlar 
gibi derlenebilen bir program birimidir ve programın genellikle başında PROGRAM 
deyiminden önce yapılandırılır. Başka alt programlarla (FUNCTION veya SUBROUTINE) 
paylaşılması arzulanan değişken veya sabitlerin tanımlamaları, başlangıç değerleri atama 
işlemleri, paylaşılan FUNCTION veya SUBROUTINE alt programları yapılandırılabilir. 
Modüldeki verilerin paylaşılması arzulanan ana veya bir alt programda USE deyimi ile 
sağlanır. Genel kullanım şekli 


MODULE isim 
IMPLICIT NONE 
! ———- Paylaşılması arzulanan sabitler, skalar ve indisli değişkenler 


SAVE 

INTEGER, PARAMETER :: Max Deger-100, Pi-3.14157 
REAL, DIMENSION (Max Deger) :: VEKTOR 

REAL :: Toplam, Sapma 

CHARACTER(LEN-12) :: Kutuk Ismi 


END MODULE isim 


olarak verilir. MODULE içinde tanımlanan sabit ve değişkenlerin değerlerine paylaşılan 
programlardan erişilebilir. 


MODULE'deki sabit ve değişkenlerin değerlerini bir alt programda kullanmak için, alt 
programda USE deyimi ile beraber modülün isminin tanımlanması gerekir. 


USE modül 1 ismi, modül 2 ismi, 


fazla MODULE inımlanabilir. MODULE içinde tanımlanan sabit/ değişkenlerin 
kullanıldıkları programlarda tipleri tanımlanmaz. 


Ye Bir programda, farklı alt programlar tarafından USE ile kulanılabilen, birden 


Örneğin, bir dairenin çevresini ve alanını hesaplayan bir program ele alalım: 
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MODULE module kullanimi 
REAL :: pi-3.14159, Alan, Cevre 
END MODULE module kullanimi 
! Modülde pi sabiti ile Alan ve Cevre değişkenleri REAL olarak tanımlandı 


PROGRAM Ornek 
USE module kullanimi 

! 

! USE kullanıldığı için aynı sabit ve değişkenleri ana programda 
! tekrar tanımlamaya gerek yoktur. R gibi sadece modülde 

! tanımlanmayan değişkenler burada tanımlanır. 

! 
REAL :: R 
PRINT*, "Yarıçapı girin" 

READ*, R 

Cevre-2.*pi*R 
Alan -pi*R**2 

! — Sonuçları ekrana yazdırma işlemi 

CALL Yazdir 

END PROGRAM Ornek 

! 

SUBROUTINE Yazdir 

USE module kullanimi 

! 

! Değişkenler bu alt programa modül ile aktarıldığı için hem argüman 

! listesine hem de tip tanımlama deyimlerine gerek kalmamıştır. 

! 

PRINT*, " ALAN -",Alan 

PRINT*, " ÇEVRE-", Cevre 

END SUBROUTINE Yazdir 


Bu programda MODULE'de pi sabiti ile Alan ve Cevre değişkenleri tanımlanmıştır. USE 
deyimi kullanılan ana program ile Yazdir alt programında kullanıldığı sürece pi sabiti ile 
diğer değişkenlerin son değerleri bu programlara aktarılmaktadır. Dikkat edildiğinde Yazdir 
alt programında argüman listesi verilmemiş, bu alt programa aktarılması istenen değişkenler 
USE deyiminin kullanılması ile aktarılmıştır. 


Bir alt programa argüman listesiyle çok sayıda sabit ve/veya değişkenin aktarımı söz konusu 
olduğunda, temel değişkenler haricinde, aktarılması arzulanan diğer sabit veya değişkenlerin 
aktarımına uygun bir yapıdır. 


7.6 MODULE ALT PROGRAMLAR 


Verilerin paylaşılmasının yanı sıra, modüller aracılığı ile FUNCTION veya SUBROUTINE alt 
programları da, çeşitli programlar arasında paylaşılabilir; bu alt programlara modül ali 
programları denir. Modül programları, modülün bir parçası olarak derlenir ve USE deyimi 
ile herhangi bir programda kullanılabilir. Modülde tanımlanan alt programlar CONTATINS 
deyimini takiben verilmeli, alt program ismi, değişken listesi ve değişken tanımları 
verilmelidir. Genel kullanım şekli 
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MODULE modul 1 
IMPLICIT NONE 
li 


! — Paylaşılan verileri bu kısımda tanımlayın 


CONTAINS 
SUBROUTINE alt programl(a,b,c,Xx) 
IMPLICIT NONE 
REAL, DIMENSTION (10), INTENT(IN) ::a, b 
REAL, INTENT(IN) :: c 
REAL, INTENT(OUT) :: x 


END SUBROUTINE alt programl 
END MODULE modul 1 


olarak verilebilir. Herhangi bir programda USE modul 1 tanımlanırsaalt programl bu 
programda normal CALL deyimi ile kullanılabilir. 


Aşağıda bir modül içinde tanımlanan ve paylaşılan bir fonksiyonun kullanımı ele alınmıştır: 


MODULE modulA 
CONTAINS 
REAL FUNCTION fonk(a, b, cc) 
IMPLICIT NONE 
REAL, INTENT(IN) :: a, b, c 
fonk — (a*c1tb*atb*c) /(a*atb*btc*c) 
END FUNCTION fonk 
END MODULE modulA 
ı 
PROGRAM test 
USE modulA 
IMPLICIT NONE 
WRITE (*,*) fonk(3.,1.,2.) 
WRITE (*,*) fonk(a-3.,bz21.,cz2 
WRITE (*,*) fonk(bz-1.,cz2.,a-3.) 
WRITE (*,*) fonk(3.,cz22.,bz21.) 
END PROGRAM test 


Program çıktısı 

.785714269 
.785714269 
.785714269 
.785714269 


OO CO O 


şeklinde elde edilir. Bu örnekte fonk fonksiyonunun argüman listesindeki değişkenlerin 
yerleri atama deyimleri kullanılarak değiştirilmiştir. Argüman listesinde, atama deyimi 
kullanıldığında, argüman listesi sırasına uymak zorunluluğu yoktur! 
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Bir SUBROUTINE veya FUNCTION alt programını, ana programdan ayrı bir şekilde 
derleyebileceğimiz ve CALL deyimi ile istediğimiz bir alt programdan çağırarak 
kullanabileceğimizi biliyoruz. O halde neden bir alt programı MODULE içinde tanımlamak ve 
USE deyimi ile kullanmak isteyelim? Bu sorunun cevabı özünde şu şekilde açıklanabilir: bir 
modül ve içindeki alt program derlendiğinde, alt programın arayüzleri ile ilgili tüm ayrıntılar 
derleyici verilir. Program çağırıldığında derleyici otomatik olarak alt programdaki argüman 
sayısını, argümanlardan hangilerinin indisli değişken olduğunu ve argümanların INTENT 
özelliğini kontrol eder. Kısacası, derleyici bir programcının yapabileceği hataların büyük bir 
kısmını bu esnada yakalar. 


Bir modül içinde derlenen ve USE ile erişilen bir alt programın “bariz arayüz”ü vardır denir. 
Alt program her kullanıldığında, derleyici her argümanın tüm ayrıntılarını bilir. Diğer 
taraftan, modül içinde kullanılmayan alt programların “Xapalı arayüz”ü vardır denir. Bu alt 
programlar kullanıldıklarında Fortran derleyicisinin argüman ayrıntıları hakkında hiçbir fikri 
yoktur; programcının argüman sayısını, tipini ve benzeri bilgileri doğru kullandığını varsayar. 


MODULE modul ornek 
IMPLICIT NONE 
REAL :: x — 100. 
REAL :: y 200. 

END MODULE modul ornek 


PROGRAM test 
USE modul ornek 
IMPLICIT NONE 
INTEGER :: i - 1, j - 2 
WRITE (*,'(A25,217,2F7.1)') ' Başlama:', i,jJ,X,y 
CALL AİLİĞİ; 4) 
WRITEK(*,'(A25,217,2F7.1)') ' Altlden sonra:',i,jJ,X,y 
CALL Alt2 
WRITE (*,'(A25,217,2F7.1)') ' Alt2den sonra:',i,jJ,X,y 
CONTAINS 

SUBROUTINE Alt2 

REAL :: Xx 

x 2 1000. 

y s 2000. 

WRITE (*,'(A25,2F7.1)') ' Alt2 de:', Xx, y 

END SUBROUTINE Alt2 

END PROGRAM test 
SUBROUTINE Alti (i,)j) 
IMPLICIT NONE 
INTEGER, INTENT(INOUT) :: i, j 
INTEGER, DIMENSION(5) :: a 
!  Alt2'den önce Alt1'de 
WRITE (#,'(217)') i, j 
CALL Alt2 
! Alt2'den sonra Alt1'de: 
WRITE (#,'(217)') i, j 
a - (/ (1000*i, izl1,5) /) 
! Alt2'de indisli değişken tanımından sonra: 
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WRITE (*,'(717)) iş İş a 


CONTAINS 
SUBROUTINE Alt2 
INTEGER :: i 
i - 1000 
j) < 2000 


WRITE (*,'(A25,217)') 'Altlideki Alt2de ', i, Jj 
END SUBROUTINE Alt2 
END SUBROUTINE Alti 


Programının çıktısı 


Başlama: 1 2 100.0 200.0 

1 2 
Altldeki Alt2de 1000 2000 

1 2000 

1 2000 1000 2000 3000 4000 5000 
Altlden sonra: 1 2000 100.0 200.0 
Alt2 de: 1000.0 2000.0 
Alt2den sonra: 1 2000 100.0 2000.0 


şeklinde olur. Çıktının neden bu şekilde elde edildiğini araştırınız. 


7.7 INTERFACE (ARAYÜZ) PROGRAGRAMLARI VE ARAYÜZ 
BLOKLARI 


Fortran'ın ileri düzey özelliklerini kullanmak için alt programların “bariz arayüz” olarak 
kullanılmaları gerektiğinden bahsedildi. Bu şekilde bariz arayüz kullanımı, derleyicinin 
yakalaması ve düzeltilmesi güç olan hataların belirlenmesinde çok faydalı olmaktadır. Bu 
arayüzleri oluşturmak kimi zaman çok güçtür; şöyleki 1950'li yıllardan beri bir çok teknik ve 
mühendislik problemin çözülmesi için yazılan programların büyük bir kısmı Fortran 
dilindedir. Kısacası Fortran dilinde hazırlanmış belirli problemleri çözmeye yönelik, halen 
kullandıkları çok sayıda alt program yazılım arşivleri mevcuttur. Bunların yeni Fortran 
derleyici versiyonlarına adapte etmek oldukça güç ve zaman alıcı bir süreçtir. Fortran 90/95 
bu anlamda eski programların harici (external) olarak (yazıldıkları versiyonda) derlenmesine 
ve bunların ayrıntı bilgilerini ana programda arayüz olarak verilmesine olanak sağlar. 


Arayüz bloğu harici bir alt programın arayüz karakteristiklerini belirler; böylece Fortran 
derleyicisi arayüz (interface) bloğundaki bilgileri kullanarak argümanların tutarlılığını kontrol 
eder. 


Bir arayüz bloğu, blok içinde herhangi bir alt programın argümanlarına ait bilgiler tekrar 
verilerek oluşturulur. Bir arayüzün genel şekli aşağıda verilmiştir: 


INTERFACE 
Arayüz 1 
Arayüz 2 


END INTERFACE 
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Her Arayüz kullanılan harici alt programın (FUNCTION veya SUBROUTINE) ilk tanımlama 
deyimini, argümanlarının tip tanımlamalarını ve END FUNCTION veya END SUBROUTINE 
deyimini içerir. Bu deyimler, derleyicinin kullanılan harici alt program ile çağıran programlar 
arasında tutarlılık kontrollerini yapması için yeterlidir. Örneğin, 


PROGRAM ARAYUZ Ornek 
IMPLICIT NONE 
INTERFACE 
SUBROUTINE Vektor Siddeti (Boy,a,Siddet) İlk deyim 


IMPLICIT NONE 
REAL, DIMENSION (Boy), INTENT(IN) :: a 
Tanımlama 
INTEGER, INTENT(IN) :: Boy 
REAL, INTENT (OUT) :: Siddet 


END SUBROUTINE Vektor Siddeti l Son Deyim 
END INTERFACE 
! 
REAL, DIMENSION(6) :: Vektor-(/ 4.,3.,5.,2.,-3.,9. /) 
INTEGER :: Uzunluk —- 6 
! 
CALL Vektor Siddeti (Uzunluk, Vektor, Siddet) 
! 
WRITE (*,*) "Siddetz",Siddet 
END PROGRAM ARAYUZ Ornek 


Arayüz blokları kullanımında dikkat edilecek hususlar: 


e Bütün alt programlarınızı MODULE içinde veriniz ve USE deyimi ile kullanınız. 
Gerekmedikçe arayüz bloğu kullanmaktan mümkün olduğunca kaçınınız. 


e MODULE içinde tanımlanmış ve USE ile kullanıma açılmış bir alt programı, arayüz bloğu 
içinde tekrar vermeyiniz. (Alt program için iki kez arayüz oluşturmaya çalışır ki derleyici 
hatası ile sonuçlanır.) 


e Arayüz kullanımı, daha ziyade derlenmiş harici (Fortran IV, 77 versiyonları ve/veya C 
dilinde yazılmış) alt program kütüphaneleri için bariz arayüz oluşturmak amacını 
taşımaktadır. 


e Eski alt programlar için bir arayüz oluşturmanın en kolay yolu, bu programların tümünün 
bir modül içine yerleştirilmesi ve USE deyimi ile çağıran programdan kullanılmasıdır. 
Örneğin, 
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MODULE Arayuz Tanimlari 
INTERFACE 
SUBROUTINE Vektor Siddeti (Boy,a,Siddet) 
IMPLICIT NONE 


REAL, DIMENSION(Boy), INTENT(IN) :: a 
INTEGER, INTENT(IN) :: Boy 
REAL, INTENT (OUT) :: Siddet 


END SUBROUTINE Vektor Siddeti 
( Diğer alt program arayüzleri izler ) 


END INTERFACE 
END MODULE Arayuz Tanimlari 


e Her arayüz derleyici tarafından farklı işlenir ve birkaç arayüzde aynı değişken isimlerinin 
farklı tipte kullanılması çelişki oluşturmaz. 


e Arayüzde verilen alt programların argüman listesinde kullanılan değişken isimleri bu alt 
programların değişken isimleri ile aynı olması zorunluluğu yoktur. Ancak programcının 
kolaylıkla kafasının karışmasına sebep olabileceği için, farklı isimlendirmelerin yapılması 
pek tavsiye edilmez. 


ÖRNEK 5: İki indisli değişken a, — i ve b, - i” olarak veriliyor. Bu değişkenlerin 
içeriklerini takas eden bir SUBROUTINE programı yazınız. No?: Bu alt programı arayüz 
olarak tanımlayınız. 


Verilerin takas edilmesini içeren bir örnek daha önce verilmişti. Aynı algoritmayı 
Takas Et(Xx,Yy) alt programında kullanabiliriz. (Bizden arayüz kullanmamız 
istendiğinden, alt programın başlangıç, tanımlama ve son deyimleri INTERFACE-END 
INTERFACE bloğu içinde verildiğine dikkat ediniz. 


PROGRAM Ornek5 
IMPLICIT NONE 
INTERFACE 


ELEMENTAL SUBROUTINE Takas Et(x,y) 
INTEGER , INTENT(INOUT) :: x, y Arayüz 
END SUBROUTINE Takas Et 


END INTERFACE 

INTEGER , DIMENSION(10) :: A, B 

INTEGER :: i 

DO i-1,10; A(i)-i; B(i)-i*i; END DO 

PRINT*, 'Takas işleminden önce 

PRINT*, A; PRINT*, B 

CALL Takas Et(A,B) 

PRINT*, 'Takas işleminden sonra 
PRINT*, A; PRINT*, B 

END PROGRAM Ornek5 


' 
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ELEMENTAL SUBROUTINE Takas Et(Xx,y) 
IMPLICIT NONE 
INTEGER , INTENT(INOUT) :: x, y 
INTEGER :: Gecici 

Gecici-x 

x-Y 

yzGecici 
END SUBROUTINE Takas Et 


ÖRNEK 6: Yarıçapı ekrandan girilen on adet dairenin alanını ve çevresini çift hassasiyetli 
olarak hesaplayan bir program yazınız. Çift hassasiyet ile 15 basamak hassasiyeti ve pi 
sayısını bir MODULE'de tanımlayınız; bir arayüz ile beraber kullanılan, alan ve çevre 
hesaplarını yapan bir alt program oluşturunuz. 


Aşağıda oluşturulan modülde çift hassasiyetin 15 basamak olduğu ve pi sayısı verilmiştir. 
Cift tanımlaması ana ve Altl alt programında kullanıldığından her iki programda USE 
deyimi ile modüldeki veriler paylaşılmaktadır. Örnek programın başında INTERFACE 
bloğunda alt program ismi ve tip tanımlamaları verilmektedir. Ayrıca alt programda çevre 
hesabında kullanılan 2. sabitinin 2.0 cift olarak verildiğine dikkat ediniz. 


MODULE Basamak Hassasiyeti 
IMPLICIT NONE 
INTEGER, PARAMETER:: Cift-—SELECTED REAL KIND(15,307) 
REAL (Cift), PARAMETER::pi-3.14159265358979 Cift 
END MODULE Basamak Hassasiyeti 
| 
PROGRAM Ornek6 
USE Basamak Hassasiyeti 
IMPLICIT NONE 
INTERFACE 
SUBROUTINE AltI(R,Alan,Cevre) 
USE Basamak Hassasiyeti 
IMPLICIT NONE 
REAL(Cift),INTENT(IN) :: R 
REAL(Cift),INTENT(OUT) :: Alan, Cevre 
END SUBROUTINE Altl 
END INTERFACE 
REAL (KIND-Cift):: R, A, C 
! REAL(Cift):: R, A, C olarak da tanımlanabilirdi 
INTEGER £:i 
! Değer oku, hesapla, yazdır 


DO iz1,10 
PRINT*, 'Yarıçap?' 
READ*,R 
CALL AltI(R,A,C) 
PRINT *,' Yarıçapı -— ',R 
PRINT *,' Alanı z ',A 
PRINT *,' Çevresi — ',C 


END DO 
END PROGRAM Ornek6 
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SUBROUTINE AltI(R,Alan,Cevre) 
USE Basamak Hassasiyeti 
IMPLICIT NONE 


REAL (Cift), INTENT(IN) :: R 
REAL(Cift),INTENT(OUT) :: Alan, Cevre 
Alan -— pi*R*R 


Cevre - 2.0 Cift*pi*R 
END SUBROUTINE Altl 


ÖRNEK 7: Bir dizi gerçek sayının kareleri ve küpleri toplamını hesaplayan bir program 
yazınız. N adet sayının kareleri ve küpleri toplamı için bir SUBROUTINE alt programı 
hazırlayınız ve bu alt programı arayüz olarak tanımlayınız 


Istatistik isimli bir alt program verilmektedir. Bu alt program, sayıların kare ve 
küplerini en az aritmetik işlem ve en az zaman alacak şekilde, hazırlanmıştır. Alt programın 
isim ve tip tanımlamalarının INTERFACE bloğunun içinde ve ana programda verildiğine 
dikkat ediniz. 


PROGRAM Ornek” 
IMPLICIT NONE 
REAL, DIMENSTION (1:5) ::A-(/2., 3., 7., 11., 19. /) 
REAL:: Toplam Akare, Toplam Akup 
INTEGER::SAYI-—5 
INTERFACE 
SUBROUTINE Istatistik(X, Toplam Xkare, Toplam Xkup,N) 
IMPLICIT NONE 
INTEGER, INTENT (IN) ::N 
REAL, INTENT (IN) ,DIMENSION(1:50) ::X 
REAL, INTENT (OUT) : :Toplam Xkare, Toplam Xkup 
END SUBROUTINE Istatistik 
END INTERFACE 
CALL Istatistik(A, Toplam xkare, Toplam xkup, SAYI) 
PRINT*, 'Kareler toplamı-',Toplam Xkare 
PRINT*, 'Küpler toplamı -', Toplam XKup 
END PROGRAM Ornek7/ 


SUBROUTINE Istatistik(X, Toplam Xkare, Toplam Xkup, N) 
IMPLICIT NONE 
INTEGER, INTENT (IN) ::N 
REAL, INTENT (IN) ,DIMENSION(1:50) ::X 
REAL, INTENT (OUT) : : Toplam Xkare, Toplam Xkup 
INTEGER::i 
REAL:: Gecici 
Toplam Xkare-0.0; Toplam Xkup -0.0 
DO i-1,N 
GecicizX(1) *X(1) 
Toplam Xkare- Toplam Xkare * Gecici 
Toplam Xkup - Toplam Xkup * X(1) *Gecici 
END DO 
END SUBROUTINE Istatistik 
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ÖRNEK 8: İkinci dereceden bir denklemin gerçek köklerini bulan, sanal kökleri olduğunda 
ise köklerin sanal olduğunu bildiren bir program yazınız. Programınız INTERFACE olarak 
tanımlanan iki SUBROUTINE içermesi istenmektedir: (1) ikinci dereceden denklemin 
katsayılarını okuyup, katsayıların veri girişi hatalarına karşın, kullanıcıyı uyaran bir alt 
program; (2) gerçek köklerin hesabını yapan ve ekrana yazdıran bir alt program. 


Birinci alt program Etkilesim ve ikinci alt program da Coz ismiyle verilmektedir. 
Etkilesim alt programında READ deyiminde IOSTAT'dan yararlanılmaktadır. Yanlış veri 
girişi olduğunda (veri tipi, veri sayısı vs) TOSTAT pozitif tamsayı değeri almaktadır. Böylece 
TAMAM mantıksal değişkeni .FALSE. değeri alarak veri girişinin yanlış olduğunu çağıran 
programa bildirir. 


PROGRAM Ornek8 
IMPLICIT NONE 
INTERFACE 
SUBROUTINE Etkilesim(A,B,C, TAMAM) 
IMPLICIT NONE 


REAL, INTENT(OUT) :: A 
REAL, INTENT(OUT) :: B 
REAL, INTENT(OUT) :: C 
LOGICAL, INTENT(OUT) :: TAMAM 


END SUBROUTINE Etkilesim 


SUBROUTINE Coz(E,F,G,Kokl,Kok2,Basarisiz) 


IMPLICIT NONE 
REAL, INTENT(IN) :: E 

REAL, INTENT(IN) :: F 

REAL, INTENT(IN) :: G 

REAL, INTENT(OUT) :: Kokl 

REAL, INTENT(OUT) :: Kok2 

INTEGER, INTENT(INOUT) :: Basarisiz 


END SUBROUTINE Coz 
END INTERFACE 


REAL :: P, O, R, Kokil, Kok2 
INTEGER :: Basarisiz-0O 
LOGICAL :: TAMAM-.TRUE. 


CALL Etkilesim(P,O,R, TAMAM) 
IF (TAMAM) THEN 
CALL Coz(P,O,R,Kokl,Kok2,Basarisiz) 


IF (Basarisiz —- 1) THEN 
PRINT *,' Kökler sanal !' 
ELSE 
PRINTI *,' Kökler ',Kokl,' ',Kok2 
ENDIF 
ELSE 
PRINT*,' Veri girişi hatası var' 
ENDIİIF 


END PROGRAM Ornek38 
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SUBROUTINE Etkilesim(A,B,C, TAMAM) 
IMPLICIT NONE 


| ax *bx*c-0 denkleminin katsayıları 


REAL, INTENT(OUT) :: A, B, C 

! Durum değişkeni, TAMAM-O ise okuma Başarılı, /- ise başarısız 
LOGICAL, INTENT(OUT) :: TAMAM 

INTEGER :: Durum-0 


PRINT*,' A, B ve C Katsayılarını Giriniz ' 
READ (UNIT—*, FMT-*, IOSTAT-Durum) A, B, C 
IF (Durumz—0) THEN 

TAMAM-.TRUE. 
ELSE 


TAMAM-.FALSE. 
ENDİF 
END SUBROUTINE Etkilesim 


SUBROUTINE Coz(E,F,G,Kokl,Kok2,Basarisiz) 
io gl fx* g0 denkleminin kökleri 


IMPLICIT NONE 

REAL, INTENT (IN) 2: BE, F, G 

REAL, INTENT (OUT) :: Kokl, Kok2 ! Gerçek kökler 
INTEGER, INTENT(INOUT) :: Basarisiz |! Sanal kökler 
REAL :: Terim, A2 

Terim — F*F 4.*E*G 

A2 - E*2.0 

! Eğer Terim < O ise, Kökler sanaldır 

IF(Terim < 0.0) THEN 


Basarisiz — 1 
ELSE 
Terim > SOERT(Terim) 
Kokl — (-F4Terim) /A2 
Kok2 — (—F-Terim) /A2 
ENDIİF 


END SUBROUTINE Coz 


7.8 STANDART DERLEYİCİ ARŞİV ALT PROGRAMLARI 
(FUNCTION VE SUBROUTINE'LER) 


Arşiv fonksiyonları FORTRAN derleyicileri ile beraber kullanıcıya sunulan, çok hızlı bir 
şekilde sonuca ulaşan genellikler matematikte kullanılan bazı fonksiyonları içeren alt 
programlardır. 


Arşiv fonksiyonlarının kullanım amaçlarını tanımlayan, örneğin karekök işlemi için SORT 
ismi gibi, jenerik (tüm derleyicilerin kullandığı standart) isimleri vardır. Bundan başka, arşiv 
ismi, örneğin DSORT gibi (çift hassasiyeti—Double precision—karekök alma), bu 
fonksiyonun esas amacını belirler. Özetle arşiv isimi tek hassasiyetli işlem yapılan 
durumlarda genellikle (bazı durumlar hariç) jenerik isim ile aynıdır. Çift hassasiyetli 
programlarda jenerik ismin başına D getirilerek kütüphane ismi elde edilir. Karmaşık sayılarla 
işlem yaparken, jenerik ismin başına C getirilir. Örneğin, SIN(X) fonksiyonu REAL X 


BÖLÜM 7. FONKSİYON/ALTPROGRAM OLUŞTURMA VE KULLANMA 175 


argümanının sinüsünü verirken, DSIN(X) fonksiyonu DOUBLE PRECISION (veya 
REAL*8) olarak tanımlanmış X argümanının çift hassasiyetli olarak hesaplanmış sinüs 
değerini verir. Ayrıca X, COMPLEX olarak tanımlanmışsa, CSIN(X) fonksiyonu ile bu 
karmaşık değerin sinüsü hesaplanır. Ancak bazı istisnalar da söz konusudur; bazı 
matematiksel arşiv fonksiyonları ve kullanımlarına ilişkin bilgi Tablo 7.1'de verilmiştir. Bu 
nedenle fonksiyonlar ve kullanım şekilleri için, kullandığınız derleyicinin kullanım 
kılavuzuna başvurunuz. 


7.9 SUBROUTINE—FUNCTION KARŞILAŞTIRILMASI 


Genel olarak SUBROUTINE alt programları birden fazla çıktı değeri hesaplamak için 
kullanılır. Bu demektir ki, FUNCTION alt programları tarafından yapılabilen herhangi bir 
işlem, SUBROUTINE alt programları tarafından da yapılabilir. 


e Altprogramları oOçağırma, oO(FUNCTION alt programları ana programda 
adını vererek SUBROUTINE'lerde ise CALL deyimi kullanarak yapılır. 


e FUNCTION ismine alt programda atama yapılırken SUBROUTINE ismi 
asla değişken gibi kullanılamaz. 


e FUNCTIONen az bir argümana sahip olması gerekir ve/veya değişken listesinde 
yer alan değişkenlerin bir kısmı veya tamamı MODULE-USE deyimleri ile alt 
programa aktarılabilir; SUBROUTINE 'lerin argüman listesi olması gerekmez. 


e FUNCTION alt programlarının tipi (REAL, INTEGER, COMPLEX, LOGICAL, 
CHARACTER, vb) tip tanımlamaya tabidir, SUBROUTINE'ler veya isimleri herhangi 
bir veri tipinde tanımlanmaz. 


Tablo 7.1: Bazı matematik arşiv alt programları ve kullanım şekilleri. 


Jenerik İsmi İşlemi Kullanım İsmi Argüman Tipi 
ABS (A) lal ABS (r) Gerçek sayı 

CABS (c) Karmaşık sayı 

DABS(d) Çift hassasiyetli gerçek sayı 

IABS(i) Tamsayı 
ACOS (X) coslx |(ACOS(r) Gerçek sayı 

DACOS (d) Çift hassasiyetli gerçek sayı 
ASIN(X) sin İ x ASIN(r) Gerçek sayı 

DASIN (d) Çift hassasiyetli gerçek sayı 
ATAN (X) tan Tx ATAN (r) Gerçek sayı 

DATAN (d) Çift hassasiyetli gerçek sayı 
ATAN2(Y,X) ay JATAN(r2,r1) Gerçek sayı 

tan XX | DATAN (d2,d1) Çift hassasiyetli gerçek sayı 

COS (X) COSX COS (r) Gerçek sayı 

DCOS (d) Çift hassasiyetli gerçek sayı 

CCOS (c) Karmaşık sayı 
COSH(X) cosh 1x | COSH(r) Gerçek sayı 

DCOSH (d) Çift hassasiyetli gerçek sayı 
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DOT PRODUCT (a,b) a-b Argüman tipleri belirleyici 
EXP (X) e EXP (Xx) Gerçek sayı 
DEXP (Xx) Çift hassasiyetli gerçek sayı 
CEXP (Xx) Karmaşık sayı 
LOG (X) Inx ALOG(x) Gerçek sayı 
DLOG (Xx) Çift hassasiyetli gerçek sayı 
CLOG(x) Karmaşık sayı 
LOG10 (X) log,, x | ALOG1O0(x) Gerçek sayı 
DLOG10 (Xx) Çift hassasiyetli gerçek sayı 
CLOG10 (Xx) Karmaşık sayı 
MAX(al,a2,..) AMAX0(il,i2,.. Gerçek sayı 
AMAXI(r1,r2,.. Gerçek sayı 
DMAXI1(d1,d2,.. Çift hassasiyetli gerçek sayı 
MAXO(il,i2,..) Tamsayı 
MAXI(r1l,r2,..) Tamsayı 
MIN(al,a2,..) AMINO0(il,i2,.. Gerçek sayı 
AMINI(r1,r2,.. Gerçek sayı 
DMINI(d1,d2,.. Çift hassasiyetli gerçek sayı 
MINO(il,i2,..) Tamsayı 
MINI (r1,r2,..) Tamsayı 
SIN (X) sin x SIN(r) Gerçek sayı 
DSIN(d) Çift hassasiyetli gerçek sayı 
CSIN (c) Karmaşık sayı 
SINH(X) sinh x | SINH(r) Gerçek sayı 
DSINH(d) Çift hassasiyetli gerçek sayı 
SORT (X) SORT (r) Gerçek sayı 
DSORT (d) Çift hassasiyetli gerçek sayı 
CSORT (c) Karmaşık sayı 
TAN (X) tan x TAN(r) Gerçek sayı 
DTAN (d) Çift hassasiyetli gerçek sayı 
TANH (X) tanhx | TANH(r) Gerçek sayı 
DTANH (d) Çift hassasiyetli gerçek sayı 
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ALIŞTIRMALAR 
7.1 Aşağıdaki FUNCTION ve SUBROUTINE isim tanımlarında, varsa hataları, tespit ediniz. 
(a) REAL FUNCTION Bis(n, Xx) 
(b) FUNCTION Matris(2*n,a,b) 
(Cc) SUBROUTINE Tarama(a,c,y,L(n)) 
(d) SUBROUTINE ENBüyük (N,X, Y, EB) 
(e) FUNCTION (a,i,j) 
(£) SUBROUTINE Vektor(K,1(5),M,1) 
(g) FUNCTION Borçlu(m,a, X) 
(h) COMPLEX SUBROUTINE ZCZ(z21,z22,z32) 
(i) FUNCTION*8 Funcf(X,Y,Z) 
(j7) LOGICAL FUNCTION OkeyMi (L) 
(k) FUNCTION NOTLAR a,b,c 
(1) SUBROUTINE*16 Kompleks (A,B,C,N) 
(m) SUBROUTINE (U,V,W) 
(n) LOGICAL FUNCTION, Son(a,btc,e*f) 


7.2 


7.3 


T.A 


7.5 


Aşağıdaki işlemleri yapan FUNCTTION alt programları yazınız. 


gk 


(a) A(X)— 5 H1l0g (3 *sin 7x) 
1*x 

l0gs(14 x/ 

(b) Bay) 2) 
e” se 

30 nl 
o) C(&,y) > : 
(e) ( y) 2 payi 


oDaso|i na NE cos 

y y X X 
yo x—n)Yf y—2n Y( 2—3n 

(©) E,y,z) EZ) (EE) 


Uzunluğu M olan bir A indisli değişkeninin değerlerinin ortalamasını hesaplayan 
ORTALA isimli FUNCTTON alt programı hazırlayınız. 


Herhangi bir f(x) fonksiyonunun Ja, b) aralığında x ile değişimini Ax—(b—a)/M (M 
bir tamsayıdır) artırımları kullanarak tablo haline getiren bir program yazınız. 
Bahsedilen işlemler bir SUBROUTINE içinde yer alacak, f(x) fonksiyonu da 
FUNCTION alt programı olarak tanımlanacaktır. 


Bir REAL x (x>0) sayısının herhangi bir y INTEGER tabanına göre logaritmasını 
(dog,x) hesaplayan bir harici fonksiyon (FUNCTION LOGY(X,Y) isimli) 


hazırlayınız. 
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7.6 Literatürde Hata fonksiyonu (Error Function) olarak bilinen erf(x) fonksiyonu 
21 e 
erf (0) -— İle“ du 
7 


olarak tanımlanıyor. Fakat bu integralin hesabı yerine, aşağıda verilen formülün 
programlanarak, herhangi bir x değeri için hata fonksiyonunu hesaplanmak istenmektedir: 


5 
2 
erf(00)—I—-e* > a," 
nzl 


Yukarıdaki formülde kullanılan sabitler aşağıda verilmiştir: 


i— , pS0.3275911, a, <0.2548296, a, -——0.284497,a,—1.421414, 


1*px 
a, -—1.453152, a; —1.061405 
Hata fonksiyonunu, yukarıdaki bilgiler ışığı altında, hesaplayan bir FUNCTION ERE (X) 


yazınız ve bu fonksiyonu test ediniz. Bu test için erf(1)-0.84270, erf(1.25)-0.9229, 
er((2)-0.99532 olarak bildirilmektedir. 


7.7 Bir f(x) fonksiyonunun herhangi bir x—a noktasındaki birinci dereceden türevi 
il x-h)— f(x—h) 
Haz fh 
2h 
olarak veriliyor. Argümanları a ve /h olan, birinci dereceden türevi hesaplayan bir 
SUBROUTINE alt programı yazınız. NOT: f(x) fonksiyonu EXTERNAL olarak 


tanımlanacaktır. 


7.8 Boyutun olan x ve y indisli değişkenleri için, aşağıdaki ifade hesaplanmak isteniyor. 
Yayı *XY2) 1:1 yy 
Ya rağ İk ey eee? 


İfadeyi bir bilgisayar programı vasıtasıyla hesaplamak için a,b * a,b, *---*a,b, işlemini 


nn 


yapan FUNCTION Vek(a, b) isimli alt programı yazınız; programınızda bu fonksiyon- 
dan faydalanınız. İPUCU: Fonksiyon tanımlandıktan sonra ifadeyi Vec (x, y) / (Vek 
(Xx, x) *Vek(y, y) ile hesaplayabiliriz. 


7.9 Bir tamsayı indisli değişkeni olan KOD(i, j) ekrana matris şeklinde yazdırmak için 
SUBROUTINE PRINT isimli bir alt program yazınız. 


7.10 Bir tamsayı indisli değişkeni olan KOD (i, j) ekrana matris şeklinde yazdırmak için 
SUBROUTINE PRINT isimli bir alt program yazınız. 


7Al X(N,N,N) indisli değişkeninin elemanlarından mutlak değerce en büyüğünü veren 
FUNCTION Max Indisli isimli bir alt program yazınız 


7.12 Tanımlayacağınız RA— Ya? b? 42 fonksiyonu aracılığıyla aşağıdaki ifadeleri tek bir 
ana programda hesaplayan bir program yazınız. 


A- > B-Jx*4y*'iz' C : 


24242 yY4x? 49y2 41627 
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7.13 Aşağıdaki programların çıktılarını bulunuz. 


(a) 


(b) 


(c) 


PROGRAM Problem a 
IMPLICIT NONE 


REAL :: x-2., y-#d., 2-5. 
REAL :: d, Fonks 
d>xtytz 


d-dtFonks(Xx,y) 
PRINT *, 'd—',d 
END PROGRAM Problem a 


REAL FUNCTION Fonks(a,b) 

IMPLICIT NONE 

REAL, INTENT(IN) :: a, b 
Fonks-a*a*tb/a 

END FUNCTION Fonks 


PROGRAM Problem b 


IMPLICIT NONE 

REAL :: x-2., y-3., hzl.e-5 
REAL :: Fxy, h2, fx, fy 
h2-2.*h 


Fx-(fxy(xth,y)-Exy(x-h,y)) /h2 
fy-(£xy(x,yth)-Exy(x, y-h) ) /h2 
PRINT 100, '£x-',fx,'£y-',fy 
100 FORMAT(3(1x,A,2x,F10.5/)) 
END PROGRAM Problem b 


REAL FUNCTTION Fxy(a,b) 

IMPLICIT NONE 

REAL, INTENT(IN) :: a, b 
Fxy-SIN(a*b) 

END FUNCTION FEzxy 


PROGRAM Problem c 


IMPLICIT NONE 
REAL :: DX-0.5, X 
REAL :: Fonk A, Fonk B 
INTEGER :: nzs0 
X—DX 
DO 
nantl 
PRINT 100, X, Fonk A(X), Fonk B(X) 
X—X1DX 
IF(n>11) EXIT 
END DO 


100 FORMAT(3(1x,F10.5)) 
END PROGRAM Problem c 
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REAL FUNCTION Fonk Af(u) 

IMPLICIT NONE 

REAL, INTENT(IN) :: u 
Fonk Azu*u-l. 

END FUNCTION Fonk A 


REAL FUNCTION Fonk B(u) 

IMPLICIT NONE 

REAL, INTENT(IN) :: u 
Fonk B>u*u-3.*u12 

END FUNCTION Fonk B 


(d) PROGRAM Problem d 
IMPLICIT NONE 


REAL :: x--1., y-0. 
REAL :: x0, y0, FA, FB, EC 
DO 
IF(FA(x)<FB(y)) THEN 
XOZFB (Xx) 
yOzFA(x01*1.) 
ELSE 
XxOZFA(x11.) 
yOzFB(x01*1.) 
ENDIF 
PRINT 100, x0,y0,FC(x0,y0) 
XxExt1. 
yayt2. 
IF (x*y>9) EXIT 
END DO 
100 FORMAT(5X,'(',f£7.4,',',f£7.4,')>',f£9.4) 


END PROGRAM Problem d 

l 

REAL FUNCTION FA(x) 

IMPLICIT NONE 

REAL, INTENT(IN) :: Xx 
FA-Xx*x13.*Xx12. 

END FUNCTTION FA 

l 

REAL FUNCTION FB(x) 

IMPLICIT NONE 

REAL, INTENT(IN) :: Xx 
FB-x13. 

END FUNCTTION FB 

l 

REAL FUNCTION FC(Xx,y) 

IMPLICIT NONE 

REAL, INTENT(IN) :: x,y 
FC-(Xx1y) /(2. *x-y) 

END FUNCTTON FC 
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(e) PROGRAM Probleme 
IMPLICIT NONE 
REAL, DIMENSION(3) :: cz(/1.,3.,4./), d 
INTEGER :: n>3 
REAL :: y, y2, asn 
y -asn(n,c) 
d(1)zc(1) 
d(2)2c(2)11.5 
y2-asn(n,d) 
PRINT 100, y,y2 
100 FORMAT(2x,f8.5,1x,f9.5) 
END PROGRAM Problem e 
ı 
REAL FUNCTION asn(m, Xx) 
IMPLICIT NONE 
INTEGER, INTENT(IN) :: m 
REAL, DIMENSION(m), INTENTÇ(IN) :: x 
INTEGER :: i 
asn-0.0 
DO izl,m 
asn-asntx(i) *x(i) 
END DO 
END FUNCTION asn 


(£) MODULE modul 


CONTAINS 
REAL FUNCTION pl(u,v) 
IMPLICIT NONE 
REAL, INTENT(IN) :: u, v 
pl-u*u-v*v 
END FUNCTION pl 


REAL FUNCTTION p2(u,v) 
IMPLICIT NONE 
REAL, INTENT(IN) :: u, v 
p2-u*utv*v 
END FUNCTION p2 
END MODULE modul 
| 
PROGRAM Program f 
USE modul 
IMPLICIT NONE 
REAL :: t-1.0, a-2.0, y 
INTEGER :: izl 
DO 
IF(t>-a) THEN 
yzpl(t,a) 
tzt12.0 
ELSE 
yzp2 (t,a) 
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t-t*1.0 
a-a-l1.0 
ENDIF 
PRINT 100, 't-',t,'y>',y 
IF(i--3) EXIT 
izitl 
END DO 
100 FORMAT(2x,2(A2,1x,f8.5)) 
END PROGRAM Program f 


(g) MODULE modul 


CONTAINS 
SUBROUTINE abc(x,y,z,a,b,c) 
IMPLICIT NONE 
REAL, INTENT(IN) :: Xx, y, z 
REAL, INTENT(OUT) :: a,b,c 
a-(xty1z2) /3.0 
b>SORT (x*x1y*y1z2*z) 
cz (a-b) / (atb) 
END SUBROUTINE abc 


END MODULE modul 
l 


PROGRAM g 

USE modul 

IMPLICIT NONE 

REAL :: a-4.0, bz-2.0, cs#0.0, d-4.0 
REAL :: U, V, wW 

CALL abc(a,b,c,u,v,w) 


PRINT 100, u,v,w 
CALL abc(a,b,d,u,v,w) 
PRINT 100, u,v,w 
CALL abc(a,c,d,u,v,w) 
PRINT 100, u,v,w 
100 FORMAT(3x,3(ES10.3,1x)) 
END PROGRAM g 


(h) MODULE modul 


CONTAINS 
SUBROUTINE hesap(m,u,a,b) 


IMPLICIT NONE 
INTEGER, INTENT(IN) :: m 
REAL, DIMENSTON(M), INTENT(IN) :: u 
REAL, INTENT (OUT) xa, b 
REAL :: gecici 
INTEGER :: i 
DO izl,m 


gecicizu(i) *u(i) 
a-atgecici 
b-btgecici*u(i) 
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END DO 

END SUBROUTINE hesap 
END MODULE modul 
| 
PROGRAM Program h 
USE modul 
IMPLICIT NONE 
REAL, DIMENSION(4) :: az(/ 1., 3. 
REAL, DIMENSION(5) :: b-(/-2., 4. 
INTEGER :: naz4, nb>5 
REAL :: Xx, y 
CALL hesap(na,a,X,y) 
PRINT *, 'a icin hesaplar',x,y 
CALL hesap(nb,b,Xx,y) 
PRINT *, 'b icin hesaplar',x,y 
END PROGRAM Program h 


(i) PROGRAM Program i 
IMPLICIT NONE 
INTEGER :: j 
REAL :: X 
REAL , DIMENSION(10) :: Y 
ı 
INTERFACE 
ELEMENTAL REAL FUNCTION ETOX(X) 
IMPLICIT NONE 
REAL , INTENT(IN) :: X 
END FUNCTTION ETOX 


END INTERFACE 
l 


X-1.0 
DO j-1,10 
Y())5j 
END DO 
PRINT 100, Y 
X-ETOX (X) 
PRINT 100,X 
Y-ETOX (Y) 
PRINT 100,Y 
100 FORMAT(1x,10(2x,£9.3/)) 
END PROGRAM Program i 
I 
ELEMENTAL REAL FUNCTION ETOX (X) 
IMPLICIT NONE 
REAL , INTENT(IN) :: X 
REAL :: TERIM 
INTEGER :: NTERIM 
REAL , PARAMETER :: TOL -1.0E-6 
ETOX-1.0 
TERIM-1.0 
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NTERIM-O 

DO 
NTERIM-NTERIM$tI1 
TERIM-(X/NTERIM) *TERIM 
ETOX—ETOX#HTERIM 
IF (TERIM<-TOL) EXIT 

END DO 

END FUNCTION ETOX 


(3) PROGRAM Program j 
IMPLICIT NONE 


REAL :: Hi , Hr , HL , HH , HA, XI 
REAL :: Xh, Xm, D 

REAL , PARAMETER :: Tolzl1.0F-6 

HH — HL*2.0 


Xl - F( HL, Hr, D) 
Xh - F( HH, Hr, D) 
DO WHILE ((XL*XH) >- 0.0) 
HH - HH*2.0 
XH — F(HH,EHR,D) 
END DO 
DO 
HA— (HL#HH) *0.5 
XM-F (HA, HR,D) 
TF ((XL*XM) <0.0) THEN 
XHSXM 
HAHA 
ELSE 
XL-XM 
HL-HA 
ENDIF 
IF (ABS (HH-HL) <— TOL) EXIT 
END DO 
PRINTI*, HL,' ve ',HH, 


CONTAINS 
REAL FUNCTTION F(A,B,C) 
IMPLICIT NONE 


REAL , INTENT (IN) :: A 
REAL , INTENT (IN) :: B 
REAL , INTENT (IN) :: CcC 


F-A*(1.0-0.8*EXP(-0.6*C/A))-B 
END FUNCTION FE 


END PROGRAM Program j 


BÖLÜM 8 


ALFA SAYISALLARIN UYGULAMALARI 


Alfa sayısallardan genellikle kelime-işlemci ve grafik programlarında olarak faydalanılır. 
Bunun yanı sıra sayısal çıktıların düzenlenmesinde de geniş çapta yararlanılır. Hatırlanacağı 
üzere, alfa sayısal değişkenler program başında CHARACTER tip belirleyicisi ile aşağıdaki 
gibi tanımlanırlar: 


CHARACTER (LEN-14) :: Ad, Soyad 
CHARACTER (LEN—-4), DIMENSION(0:12) :: Gaz 
CHARACTER (LEN—-1), DIMENSION(6) :: Sembol 


CHARACTER (LEN-5), DIMENSION(21):: no 


Bu değişkenlere daha sonra alfa sayısal değerler atanabilir. Bu değişkenlerden no, Gaz ve 
Sembol indisli değişkenler olarak kullanılmışlardır. Örneğin, bu değişkenlerin bazılarına 
yapılan atamalar ile bellekteki yerleşimi aşağıda verilmektedir: 


Atanan Değer Bellekteki Yerleşimi 
No(1)-'26014A' e (0 ı JA 


2 
No(2)2'2601B' 2 6 |0 ı (JB 
Gaz (0) <'ETAN' E E A N 
Gaz(1)x'AZOT' A Z (0) T 
Gaz(4)'HE' H JE 
Sembol(1)'*' * 
Sembol(3)2'!' ! 


Atanan karakter değerler sırasıyla, alfa sayısalın uzunluğuna göre, soldan sağa doğru 
bellekteki adreslerine yerleştirilirler. 


Alfa sayısallarla kıyaslama yapma işlemi normal sayısallara uygulanan tekniklere 
benzemektedir: örneğin, 100 kişilik bir gurubun içinde ismi AHMET ve soyadı TURK olan 
birisinin tespitini veren bir program örneği verilmektedir. 


PROGRAM isim arama 

IMPLICIT NONE 

INTEGER :: i 

CHARACTER (LEN-14), DIMENSION(100) :: Ad, Soyad 

OPEN(5,FILEZ'ISIMLER', STATUSZ'OLD') 

READ(5,*) (Ad(i), Soyad(i), i-1,100) 

DO iz1,100 
IF((Ad(i) --'AHMET') .AND. (Soyad(i)--'TURK')) THEN 

PRINT*, 'KAYITLARDA AHMET TURK MEVCUTTUR.' 

ENDIİF 

END DO 

END PROGRAM isim arama 
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Bu programda 100 kişinin ad ve soyadı indisli değişkenlerde depolanmıştır; bunlardan ismi 
AHMET ve soyadı TURK olan kaydın mevcudiyeti yukarıdaki şekilde araştırılabilir. 


8.1 ALFA SAYISALLARIN KIYASLANMASI 


Sembollerin 'A','B',...,'zZ" ikilik düzendeki kodlan, o şekilde ayarlanmıştır ki bunların 
değerleri sembol sırasını takip eder; yani 'A'nın değeri 'B'nin değerinden ve 'C'nin değeri 
"B'nin değerinden v.s daha büyüktür. Bu ikilik kodlama sistemine ASCII kodu denir. Küçük 
harflerin ('a', 'b',... 'z') kodları büyük harflerden büyüktür. Bu nedenle karakter 
değişkenlerin değerleri mantıksal IF ile kıyaslanabilir. Örnekler, 


(YAŞADI TRUE 
(AA'<'A') FALSE 
('ABC'<-'ABE') TRUE 
Ca'>'A') TRUE 
('E'<'c”) TRUE 


Yukarıdaki örneklerden ikincisinde 'A" nın bellek değeri 'A', yani A artı boşluk olarak kabul 
edilir ve boşluğun ikilik kodu A'dan daha küçük olduğundan önerme yanlıştır. Üçüncü 
önermede ilk iki karakter aynı olmasına rağmen üçüncü karakterlerdeki farklılık kıyaslamaya 
esas teşkil etmektedir. 


Alfa sayısallar sadece harflerden oluşmayabilir; rakamlar da içerebilirler. Örneğin 


('234'——'234') TRUE 
('234'——'2345') FALSE 
olacaktır. 


Alfa sayısallarda kullanılan harfler ASCII kodlama sistemine tabidir ve kıyaslama bu kodlar 
üzerinden yapılır. Örneğin, 'A' karakterinin kod numarası 65, 'B'nin 66'dır. Bu nedenle, 
'B'>'A'dır. Diğer taraftan, 'a'nın kodu 97 olup 'a'>'A' olmaktadır. 'A'dan 'Z'e 
harflerin kodları alfabetik sıralamayı takip etmektedir; yani 65, 66, ... 'O'dan '9'a olan 
rakamlar kendi değerleri ile kodlanmıştır. Bunların dışındaki alfa sayısallar, örneğin 'Ali", 
kodlanmamıştır. 


Bir karakterden uzun alfa sayısalların kıyaslamaları karakterlerin karşılaştırılması ile 
gerçekleştirilir. Alfa sayısalların ilk karakterleri kıyaslamaya tabi tutulur. İlk karakterler aynı 
ise, ikinci karakterlerin kıyaslanmasına geçilir ve bu işlem eşitlik bozuluncaya kadar devam 
ettirilir; örneğin 'AAAA' ile 'AACA' kıyaslamasında eşitlik üçüncü karakterde bozulmuştur; 
dolayısıyla, 'AAAA'<'AACA'dır. 


Alfa sayısalların uzunlukları farklı ise, kıyaslama ilk karakterlerle başlanır; farklı bir karakter 
ile karşılaşıncaya kadar karakter-karakter kıyaslama yapılır. Alfa sayısalın birinin sonuna 
kadar olan karakterler aynı ise, iki alfa sayısaldan diğerinin daha büyük olduğu kabul edilir. 
Örneğin, 'AB'>'AAAA' ve 'AAAA'>'AAA", 


Bazı bilgisayarlar, özellikle IBM firması, EBCDIC (Extended Binary Coded Decimal 
Interchange Code) kodlama sistemi kullanır. Yukarıda bahsedilen kıyaslama makinenin 
kullandığı kodlamaya bağlı olduğundan, kıyaslama algoritması yetersiz, eksik veya yanlış 
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çalışmasına neden olabilmektedir. Bu nedenle, Fortran programlama dilinde, kullanılan farklı 
kodlama sistemlerinden bağımsız olması amacıyla, arşiv programları arasına dört adet 
mantıksal kıyaslama fonksiyonu mevcuttur: LLT (lexicaliy less than-sözcüksel olarak küçük), 
LLE (lexicaliy less than or egual to-sözcüksel olarak küçük veya eşit), LGT (lexically greater 
ihan-sözcüksel olarak büyük) ve LGE (lexically greater than or egual to-sözcüksel olarak 
büyük eşi). Bu fonksiyonlar <, <—, > ve >- ilişkisel operatörlerinin birebir karşılığıdır; ancak 
yukarıda bahsi geçen sözcüksel kıyaslama fonksiyonları kullanılan bilgisayar ne olursa olsun, 
kıyaslamanın ASCII kodlama sistemine göre yapılmasına neden olur. 


Aşağıdaki örnekte alfal ve alfa2 alfa sayısal değişkenleri < operatörü ve LLT ile 
kıyaslanmaktadır. Sonuc1 işlemciden işlemciye değişirken, sonuc2 işlemci ne olursa olsun 
daima TRUE olacaktır. 


LOGICAL :: sonucl, sonuc2 
CHARACTER(LEN-6) :: alfal, alfa2 
alfalx'Al' 

alfa2-'al' 

sonuclzalfal<alfa2 
sonuc22>LLT(alfal, alfa2) ! > True 


8.2 ALT ALFA SAYISALLAR 


Bir alfa sayısal birkaç karakterden birkaç bin karakter uzunluğunda olabilir. Böyle çok uzun 
alfa sayısallarda, alfa sayısalın sadece belirli kesimlerine erişmek gerekebilir. Bu şekilde alfa 
sayısalın sadece belirli bir kısmını içeren alfa sayısala alt alfa sayısal (subsiring) denir. Alt 
alfa sayısallar FORTRAN'ın aşağıdaki özelliğinin kullanımı ile oluşturulabilir. 


Alfa sayısal(nsol:nsağ) 


burada alfa sayısal herhangi bir alfa sayısal değişkeninin ismi, nsol ilk karakter veya 
en soldaki karakterin konumunu veren tamsayıdır; kullanılmadığında | değerini alır; nsag ise 
alt alfa sayısalın son karakter veya en sağdaki karakterin konumunu veren tamsayıdır. Bunun 
için de herhangi bir değer kullanılmadığında alfa sayısalın en son konumunu esas alır. 
Örneğin, XY alfa sayısalının değerine göre oluşturulan alt alfa sayısallar ve değerleri aşağıda 
verilmektedir: 


CHARACTER(LEN-15) :: XY 
XY-'1234567890ABCDE' ! Çıktı Değerleri 
PRINT*, XY(1:2) l “12 
PRINT*, XY(3:7) ! '34567' 
PRINT*, XY(:5) ! '12345' 
PRINT*, XY(10:) l 'OABCDE' 
PRINT*, XY(11:11) l 'A' 
PRINT*, XY(9:10) l 'OA' 
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8.33 KÜTÜK SONUNUN BULUNMASI 


Sıklıkla bir kütükteki belirsiz sayıda kayıtın programa okunması ve bu bilgilerin bir algoritma 
uyarınca işlenmesi gerekmektedir. Bu durumda kayıt sayısının bilinmemesi durumunda, 
kütük sonuna ulaşıldığında uygun programlama yapılmamışsa, kütük okuma hatası (bir 
çalıştırma hatasıdır) ile karşılaşılabilir. Bu problemden sakınmak için kütük sonuna ulaşılıp 
ulaşılmadığını kontrol etmek, ulaşıldığında da hata mesajına sebebiyet vermeden program 
akış yönünü değiştirmek gerekir. 


Bu amaç için kullanılan bir teknik, READ deyiminin kullanıma tahsis edilen TOSTAT 
parametresini içerir. TOSTAT parametresi, IOSTAT—durum şeklinde kullanılır (durum—0 
ise girdi/çıktı işlemi başarılı, —1 ise kütük sonunu —-2 ise kayıt sonunu, pozitif bir sayısı ise 
başarısız okuma olduğu anlamına gelmektedir) ve EOF (End-Of-File) mantıksal sabiti, kütük 
sonu işaretine rastlandığında, program akış yönünün IOSTAT ile değiştirilmesine olanak 
sağlar. 


ÖRNEK |: Bir kütükteki sayısı bilinmeyen kayıtlar şahıslara ait şu bilgileri içermektedir: 
Isim(A13), Soyad (A10), Adres (A70), TelNo (A8). Bu kayıtları okuyarak kütükte kaç 
kişinin olduğunu tespit etmek için bir yazınız. 


Yukarıdaki açıklamalar ışığı altında READ deyiminde IOSTAT parametresinden faydalanarak 
aşağıdaki şekilde bir program yazmak mümkündür. 


PROGRAM Ornekl 
IMPLICIT NONE 
! Kayıt Okuma Ve Sayısını Bulma Programı 


CHARACTER(LEN-15) :: Isim 
CHARACTER(LEN-10) :: Soyad 
CHARACTER (LEN-7/0) :: Adres 
CHARACTER (LEN-8) :: TelNo 
INTEGER :: durum, n-0 'n kayıt Sayısı 
OPEN (5,FILE-—'KAYIT.DAT', STATUS-'OLD') 
DO 
READ (5,100, IOSTAT-durum) Isim, Soyad,Adres,TelNo 
nzntl 
IF (durum/--1) EXIT 
END DO 


PRINT*, 'Kütük sonuna ulaşıldı... ' 
100 FORMAT(A15,1X,A10,1X,A70,1X,A8) 
END PROGRAM Ornekl 


şeklinde yazılabilir. Burada eof bir mantıksal arşiv fonksiyonu olup kütük sonuna 
ulaşıldığında TRUE değerini alır; veya yukarıdaki programa alternatif olarak 


DO WHILE(eof) ! eof-.FALSE. olduğu sürece döngü işlemlerini yapar 
READ(5,100) Isim, Soyad, Adres, TelNo 
n-n*t1 

END DO 


DO-WHILE dönüsü kullanabiliriz. 
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READ deyimi bir sayaçlı döngü içine yerleştirilerek okunan kayıtlar sayılır; kütük sonuna 
ulaşıldığında döngüden EXIT deyimi ile çıkılır; döngü sonundaki “Kütük sonuna ulaşıldı...” 


mesajını verir.. 


8.4 ALFA SAYISAL ARŞİV FONKSİYONLARI 


Standart Fortran derleyicileri, alfa sayısalların kullanımına uygun olarak hazırlanmış arşiv 
fonksiyonları içermektedir. Bu fonksiyonların en sık kullanılanları ve işlevleri Tablo 8.1?'de 


verilmiştir. 
Tablo 8.1 Alfa sayısallarla kullanılan arşiv fonksiyonları. 

Fonksiyon İşlevi 
ACHAR(i) ASCII kodlama sistemindeki İ.ci karakter 
ADJUSsTL(alfa sayısal) Alfa sayısalı soldan hizala 
ADJUSTR(alfa sayısal) Alfa sayısalı sağdan hizala 
CHAR(i) İşlemci sistemindeki i.ci karakter 
TACHAR (karakter) Girilen karakterin ASCII sistemindeki konumu (integer) 
ICHAR (karakter) Girilen karakterin işlemci sistemindeki konumu (integer) 
INDEX (alfa,alt alfa) Alt alfa sayısal değerin alfa içindeki başlangıç konumu 
LEN (alfa sayısal) Alfa sayısalın karakter uzunluğu (integer) 


LEN IRIM(alfa sayısal) Alfa sayısalın sonlarındaki boşluklar çıkarıldıktan sonraki 
karakter uzunluğu (integer) 


LGE (alfa 1,alfa 2) Sözcüksel kıyaslama fonksiyonu—Mantıksal büyük eşit 
(alfal> alfa2 > .TRUE. veya FALSE. değerleri alır. 
LGT(alfa 1,alfa 2) Sözcüksel kıyaslama fonksiyonu—Mantıksal büyük 
(alfal>alfa2 > .TRUE. veya FALSE. değerleri alır. 
LLE(alfa 1,alfa 2) Sözcüksel kıyaslama fonksiyonu—Mantıksal küçük eşit 
(alfals alfa2 > .TRUE. veya FALSE. değerleri alır. 
LLT(alfa 1,alfa 2) Sözcüksel kıyaslama fonksiyonu—Mantıksal küçük 


(alfal<alfa2 > .TRUE. veya FALSE. değerleri alır. 
REPEAT (alfa sayısal,i) Alfa sayısal değerini i kez tekrarla 


SCAN (alfa s, set) Bir alfa sayısal set içinde alfa s değerini taramak 
TRIM(alfa sayısal) Alfa sayısalın varsa sonlarındaki boşlukları kesmek/çıkarmak 
VERIFY (alfa Ss, set) Alfa sayısal set içinde alfa s varlığını doğrulamak 


Bu arşiv programlarından, örneğin LEN fonksiyonu alfa sayısal değişkenin uzunluğunu 
(değişkende kullanılan karakter sayısı olarak) verir. Kullanımı LEN (alfa sayısal 
değişken) şeklinde olup sonucu bir tamsayıdır. Bu fonksiyonun kullanımına ilişkin bazı 


örnekler aşağıda verilmektedir: 


PROGRAM ornek 
IMPLICIT NONE 


INTEGER :: il, i2, j1, j2 
CHARACTER (LEN- 9):: SAYI-'123456789' 
CHARACTER(LEN-12) :: —'ABCDEFGHIJKL' 
il-LEN (SAYI); İl-LEN (HARE ) 


i2-LEN(SAYI(3:7)); jJ2-LEN(HAREF(:10)) 
PRINT*, il,jl,i2,j2 
END PROGRAM Ornek ! Program çıktısı 9 12 5 10 
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Diğer taraftan, bir alfa sayısalın içindeki herhangi bir alt alfa sayısalın konumunu tespit 
etmeye yarayan INDEX fonksiyonu 


INDEX (alfa sayısal:alt alfa sayısal) 


şeklinde kullanılır. Örneğin 


CHARACTER (LEN-15) :: XY 
İNTEGER *: iş iy k 
XY-'1234567890ABCDE' 
i-INDEX (XY,'A') 
İZINDEX (XY, '678') 
k—INDEX (XY, '3') 

PRINT*, i, j, k 


Program parçasında i, j ve k'nın aldığı değerler sırasıyla 10, 6 ve 3 olmaktadır. Bu değerler 
de alt alfa sayısalın başlangıç konumunu verir. Eğer alt alfa sayısal esas alfa sayısalda mevcut 
değilse, INDEX değeri O olur. 


CHAR fonksiyonu bir tamsayı argümanı olan bir fonksiyondur ve çıktısı ASCII kodlama 
sistemine göre bu kodlama sayısına (tamsayıya) karşılık gelen karakterdir. Örneğin, 
CHAR(65)-'A'dır. 


ICHAR fonksiyonunun argümanı bir karakterden oluşan alfa sayısaldır ve çıktısı tamsayı 
olup, bu karakterin ASCII kodlama sistemindeki tamsayı kodudur. Örneğin, ICHAR('A') 
—-65'dir. 


ACHAR ve IACHAR sırasıyla, tamamıyla, CHAR ve TACHAR ile aynı işleve sahiptir. Ancak 


bu fonksiyonlar, işlemci ne olursa olsun (farklı işlemcilerden etkilenmeden), karakterlerin 
ASCII kodlarını getirir. 


kıyaslamalarda sözcüksel kıyaslama fonksiyonlarını (LLT, LLE, LGT, LGE) ve 
ACHAR ile TACHAR fonksiyonlarını kullanın! 


Y” Yazacağınız program farklı bilgisayarlarda ve işlemcilerde çalıştı-rılacak ise, 


Alfa sayısallarla işleme müsaade edilen tek operasyon birleştirme işlemidir. Ancak birleştirme 
işlemi “4” işareti ile yapılmaz! S, ve S, gibi iki alfa sayısal sırasıyla n, ve m 
uzunluklarında olsun, bunlar daha sonra / / operatörüyle aşağıda verildiği gibi birleştirilebilir. 


51/75, 


Birleştirilmiş alfa sayısalın uzunluğu, artık, 7, *n, olur. Örneğin AHMET ve TURK isimlerinin 
tek bir alfa sayısal değişken altında birleştirilmesi aşağıdaki gibi gerçekleştirilebilir: 
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PROGRAM AlfaSayisal 
IMPLICIT NONE 


CHARACTER (LEN-20) :: Ad, Soyad 

CHARACTER (LEN-— 1) :: Noktaz'.', & 
Virgul-',', Bos-' ' 

Ad —'AHMET' 

Soyad -'TURK' 

Nokta —'.' 

Virgul-',' 

Bos -' ' 


PRINT*, Ad//Virgul//Bos//Soyad/ /Nokta 
END PROGRAM AlfaSayisal 


Program çıktısı 
1 2 3 4 
1234567890123456789012345678901234567890123 
AHMET , TURK 


olarak elde edilir. Çıktıda oluşan boşluklar Ad ve Soyad'ın 20 karakter uzunluğunda 
tanımlanmış olmasından kaynaklanmaktadır. Aşağıdaki şekilde verilen düzenleme ile 


PROGRAM AlfaSayisal 
IMPLICIT NONE 


CHARACTER(LEN-—20) :: Ad, Soyad 

CHARACTER (LEN—1) :: Nokta#'.', & 
Virgul-',', Bos-' ' 

INTEGER :: i, Jj 

Ad —'AHMET' 


Soyad-'TURK' 

i—INDEX (Ad , Bos) 

İJZINDEX (Soyad, Bos) 

PRINT*, Ad(1:i-1) //Virgul//Bos//Soyad(1:j-1) //Nokta 
END PROGRAM 


program çıktısı 
1 
123456789012345 
AHMET, TURK. 


olarak elde edilir; yani boşluk yeri tespit edildikten sonra, alfa sayısalların sadece boşluğa 
kadar olan kısmı birleştirme işlemine katılır. 


LEN TRIM(alfa sayısal), alfa sayısalın sonundaki boşlukları çıkardıktan sonra alfa 
sayısalın karakter uzunluğunu verir. 


CHARACTER(LEN-—20) :: isimz'Ahmet' 
PRINT*, LEN(isim) 
PRINI*, LEN TRIM(isim) 
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Program parçasının çıktısı sırasıyla 20 ve 5 olmaktadır. Her ne kadar alfa sayısalın tanımlama 
ve atamasının yapıldığı ilk satırda, isim tırnak işareti arasında 5 karakter olarak gözükse de 
Ahmet isminin arkasına 15 boşluk yerleştirilerek bellekte saklanmaktadır. 


ÖRNEK 2: Bir kütükteki bilgileri, maksimum 80 sütundan oluşan satır olarak okuyup, 
kütükteki bir kelimenin/sözcüğün varlığını araştıracak, kelimeyi bulduğunda hangi satır ve 
sütunda yer aldığını bildiren bir program yazınız. 


Kütük ismi ve aranan kelime veya sözcüğü, en fazla 12 karakter uzunluğunda, değişkenler 
olarak seçiyoruz. SATIR ile 80 karakterden oluşan satırı bir alfa sayısal olarak okutuyoruz. 
Aranan kelime veya sözcükteki boşlukları çıkarmak için LEN TRIM fonksiyonunu 
kullanarak gerçek uzunluğunu tespit ediyoruz. (Bu işlemi yapmazsak, kelimenin arkasındaki 
boşlukları olan alfa sayısalı arayacaktır.) Böylece kelimenin boşluklar içermeyen sözcüğünü 
arama amaçlı kullanıyoruz. READ deyimi ile IOSTAT durumu takip edilmektedir ki kütük 
sonuna ulaşıldığında hata vermesin. SATIR içinde geçen kelime'yi INDEX fonksiyonu ile 
tarıyoruz. 


PROGRAM Ornek2 
IMPLICIT NONE 


CHARACTER (LEN-80) :: SATIR ! Satır bilgisi 
CHARACTER (LEN-12) :: kutuk ismi ! Kütükismi 
CHARACTER (LEN-12) :: kelime ! Kütükte aranan kelime 
INTEGER :: i, n, durum, uzunluk, d durum 


PRINT*, 'Kütük ismini giriniz -> ' 
READ '(A) ', kutuk ismi 

PRINT*, 'Aranacak kelimeyi giriniz -> ' 
READ '(A)', kelime 

! o Mevcut kütüğü okumaya aç 


DO 
OPEN (3, FILE—-kutuk ismi, STATUS-—'OLD', IOSTAT—-d durum) 
IF(d durum--0) THEN 
EXIT 
ELSE 
PRINT*, 'Kütük klasörünüzde mevcut değil ' 
END IF 
END DO 


uzunlukzLEN TRIM(kelime) 
PRINT*, kelime(1I:uzunluk),' kelimesi ' 


nz0 

DO 
READ (3,'(A) ', IOSTAT-durum) SATIR ! Satırıoku 
IF (durum-—-1I) EXIT ! Kütük sonuna ulaşıldı 
nan$tl ! Satır sayacı 


! kelime, SATIR'da mevcut değil ise i-0 olacaktır... 
izINDEX (SATIR, kelime(1:uzunluk) ) 
IF(i/z 0) PRINT*, '**', n,'satırda ve ',& 
i,'.ci sütunda mevcut' 
END DO 
PRINT*, 'Kütükte ',n,' satır tarandı... ' 
END PROGRAM Ornek2 
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Bu programı test etmek amacıyla B.DAT isimli kısa bir kütük oluşturalım. Bu örnek problem 
için kütüğün içeriği aşağıdaki şekilde düzenlenmiştir: 


1 2 
12345678901234567890 
bir iki üç 
dört beş bir 
alt on 
altı bir iki 
sekiz 
on sekiz 
bir 
beş bir 
onbir dört 
on iki 


Program çalıştırıldığında aşağıdaki çıktı elde edilir: 


Kütük ismini giriniz -> B.DAT 
Aranacak kelimeyi giriniz -> bir 
bir kelimesi 
»** I satırda ve 2 .ci sütunda mevcut 
»* 2 satırda ve 11 .ci sütunda mevcut 
»* 4 satırda ve 7 .ci sütunda mevcut 

7 satırda ve 2 .ci sütunda mevcut 
** 8 satırda ve 6 .ci sütunda mevcut 
Kütükte 10 satır tarandı... 


Ax 


8.5 DEĞİŞKEN-UZUNLUKLU ALFA SAYISAL FONKSİYONLAR 


Alt programlara argüman olarak geçirilen alfa sayısalların CHARACTER (LEN-*) ile sabit 
uzunlukta tanımlandığını biliyoruz. Buna ilave olarak, Fortran herhangi bir uzunlukta alfa 
sayısal oluşturmamıza (otomatik uzunluklu alfa sayısal fonksiyonu) olanak sağlar. Örneğin, 
aşağıdaki modülde alfa fonksiyonu alfabe'nin ilk n karakterine eşit olmaktadır. 


MODULE Degisken uzunluk 
CONTAINS 
FUNCTION alfaf(n) 
IMPLICIT NONE 
INTEGER, INTENT(IN) :: n ! Arzulanan çıktı uzunluğu 
CHARACTER(LEN-n) :: alfa ! Çıktı alfa sayısalı 
CHARACTER (LEN—-26) ::alfabe- & 
'abcdefghijkimnopgrstuvwxyz' 
alfa - alfabef(l1:n) 
END FUNCTION alfa 
END MODULE Degisken uzunluk 


Otomatik-uzunluklu o karakter o fonksiyonları o bir bariz arayüz ile 
Iz tanımlanmalıdır. Aksi takdirde derleyici çıktı alfa sayısalının detaylarını 


bilmez! 
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8.6 SIRALAMA ALGORİTMALARI 
8.6.1 SEÇİMLE SIRALAMA 


Seçimle sıralama algoritması en kullanışlı algoritmalardan biridir. Verilen listedeki N 
elemanın içinde en küçüğü tespit edip, bunu listenin başına getir, sonra kalan N—1 eleman 
içinden en küçüğü tespit ederek listenin ikinci sırasına koyar ve işleme bu şekilde devam 
edilir. Böylece N eleman küçükten büyüğe doğru sıralanmış olur. 


ÖRNEK 3: En fazla 1000 kişinin isminin yer alabileceği bir kütükten, isimleri okuyarak 
alfabetik sıraya koyan bir program yazınız. 


Programı aşağıdaki şekilde yazmak mümkündür. UST kalan listedeki ilk elemanın adresidir. 
Eğer bir andaki isim o andaki minimumdan, yani MIN den, küçük ise MIN'i yeniden Gecici 
ile yer değiştirerek bulmaktayız. Sonra minimum listenin başına yerleştirilir. 


PROGRAM Ornek3 
! Seçimle Sıralama Algoritması 
CHARACTER (LEN—-20), DIMENSTION (1000) ::isim(1000) 
CHARACTER(LEN-20) :: Min, Gecici 
INTEGER :: i, n, UST, durum 
OPEN(5,FILEZ'Veri.Dat') 
READ(5,'(A10)', IOSTATZ—durum) (isim(i),iz1,1000) 
IF (durum/--1) N-I-I1 ! N kişinin ismi okundu 
DO UST-1I,n 

Minzisim(UST) 

DO i-UST*tI,n 

IF(isim(i) <Min) THEN 


Gecici — isim(i) 
isim(i)z Min 
Min — Gecici 
ENDIF 
END DO 
isim(ust) -Min 
END DO 


WRITE(6,*) (isim(i),i-1,N) 
END PROGRAM Ornek3 


8.6.2 KÖPÜK SIRALAMA (BUBBLE SORT) 


Bir başka basit algoritmada köpük sıralama olarak bilinir ve liste kısmen sıralanır. Sadece alfa 
sayısallar için değil, sayısal değerlerin sıralanmasında da kullanılabilen bu algoritmanın 
ardında yatan düşünce şu örnek ile açıklanabilir. Elimizdeki sayısal liste sırasıyla 17, 11, 6, 2, 
99 ve 8 olsun. 


1. İlk iki elemanı (17 ve 11) kıyasla ve sıralamak istediğiniz düzene uymuyorsa yer 
değiştir. Bu durumda 17, 11 den büyük olduğu için sıralarını değiştirirsek yeni sıralama 
11,17,6,2,99 ve8olur. 
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2. Bir sonraki çifte, yani 17 ve 6, aynı kıyaslamayı uygula ve gerekirse yerlerini değiştir. 
Bu durumda yeni sıralama 11, 6, 17,2, 99, 8 olur. 


3. Bu işleme listedeki bütün değerleri tarayarak devam et ve yer değiştirme işlemlerini 
gerektikçe yap. Kısacası sıralamalar her bir aşama için şu şekilde gelişir: 11, 6, 2, 17, 
99,8 sonra11,6,2,17,99,8 veenson11,6,2,17,8,99. 


4. Bu son listeye ikinci kez aynı işlemler dizisini uyguladığımızda sıralama düzeni 6, 2, 
11,8,17, 99 olur. 


ÖRNEK 4: Köpük sıralama algoritmasını uygulayarak 100 adet tamsayıyı küçükten büyüğe 
doğru sıralayan bir FORTRAN programı yazınız. 


PROGRAM Ornek4 
IMPLICIT NONE 
! Köpük Sıralama Algoritması 


LOGICAL :: CEVAP 
INTEGER, DIMENSION(100) :: A 
INTEGER :: i, n, j, GECICI, durum 


OPEN(5,FILEZ—'A.DAT', STATUSZ'UNKNOWN' ) 
READ (5, *, IOSTAT—>durum) (A(1),i-1,100) 
IF (durum/--1) n-i-1 ! n adet tamsayı okundu 
PRINT*, n, 'adet tamsayı okundu' 
DO i-n,2,-1 
CEVAP-.FALSE. 
DO j-1,i-1 
IF(A(j)>A(j11)) THEN 
GECICI- Af(j) 
A()) — A(jt1) 
A(j11)- GECICİ 
CEVAP-.TRUE. 
ENDIF 
END DO 
IF(.NOT.CEVAP) EXIT !I cevapz.TRUE. oluncaçık 
END DO 
WRITE(*,'(15)') (A(i),izi,n) 
END PROGRAM Ornek4 


CEVAP mantıksal değişkeni kullanılarak yer değiştirme yapılıp yapılmadığı kontrol ediliyor. 
Elemanlar arasında yer değiştirme yapıldığında CEVAP doğru değerini alıyor; yoksa baştaki 
yanlış değerini koruyor. Yer değiştirme yapılmadığında artık sıralama tamamlanmış demektir 
ki bu durumda döngüden çıkış sağlanıyor. 


8.7 DAHİLİ KÜTÜKLER 


Şu ana kadar sayısal ve alfa sayısal verilerin girdi/çıktı olarak programa ve programdan 
okutulmasını öğrendik; ancak sayısal değerleri alfa sayısala veya alfa sayısalı sayısal verilere 
dönüştürme konusundan bahsetmedik. Fortran bu tür dönüştürme işlemlerini yapmak için, 
dahili kütük, adı verilen özel bir mekanizmaya sahiptir. 
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Dahili kütükler Fortran VO sisteminin, kütüklere yazılma ve okunmasından ziyade, bellekte 
dahili işlem gören özel bir uzantısıdır. Harici kütüklere kaydedilebilen her tür veri dahili 
kütüğe de kaydedilebilir. READ ve WRITE deyimlerinin genel şekli 


READ (tampon, format) argüman 1, argüman 2,... 
WRITE (tampon, format) argüman 1, argüman 2,... 


Olarak verilir. Burada tampon alfa sayısal girdi tampon belleğidir. Format okuma ve 
yazma formatıdır. 


Dahili kütük kullanımı sıklıkla alfa sayısal veriyi sayısala, yada sayısal veriyi alfa sayısala 
dönüştürmede kullanılır. Örneğin, 


CHARACTER (LEN-—8) :: veri-'123.4567' 
REAL :: deger 
READ (veri, *) deger 


Programında veri alfa sayısal bir sabittir (sayısal değil), ancak READ deyimi ile veri sayısal 
olarak deger-123.45677”e dönüştürülmüştür. 


CHARACTER (LEN-132) :: tampon 
REAL :: az12.34, b#45.67 
INTEGER :: i-l1, j-24 

WRITE (tampon,100) i, j, a, b 
100 FORMAT(2(2X,i15),2(2x,f£7.3)) 
PRINT '(A)', tampon 


Programı ile i, j3, a ve b değişkenleri tampon ile temsil edilen dahili kütüğe 100 numaralı 
format uyarınca alfa sayısal olarak kaydedilmiştir. Bu kaydı görmek için PRINT deyimini 
kullandığımızda çıktı aşağıdaki gibi olacaktır: 


1 2 3 3 
12345678901234567890123456789012345 
11 24 12.340 45.670 


ÖRNEK 5: Uzunluğu 20 karakter olan bir alfa sayısalı büyük harflerden oluşan bir alfa 
sayısala dönüştüren BHarf isimli bir alt programı yazınız. 


ASCII tablosu incelendiğinde büyük harfler 65'den, küçük harfler ise 97'den itiraben 
kodlanmıştır; yani bir büyük harf ile küçük harf arasındaki fark 32'dir. 


Bharf alt programında al fas alfa sayısalı birinci karakterden son karaktere kadar karakter 
bazında küçük harfe karşılık gelip gelmediği araştırılıyor. Eğer karakter küçük harf ise, büyük 
harfe dönüştürmek için küçük harfin ASCII kodundan 32 çıkarılarak büyük harfin ASCII 
kodu bulunuyor. Son olarak da bu ASCII koduna karşılık gelen karakter ACHAR fonksiyonu 
ile bulunarak, alfa sayısaldaki yerine yazılıyor. 
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PROGRAM Ornek5 
IMPLICIT NONE 


CHARACTER(LEN-20) alfaS ! alfa sayısal değişken 
WRITE (*,*) ' En fazla 20 karakterden oluşan bir', 


' alfa sayısal giriniz' 
READ (*,'(A20)') alfasS 
CALL BHarf(alfaS) 


WRITE (*,*) ' Dönüştürülen alfa sayısal 


END PROGRAM Ornek5 


SUBROUTINE BHarf(alfas5S) 
IMPLICIT NONE 


CHARACTER (LEN—*), INTENT(INOUT) :: alfaS 
INTEGER :: i 
INTEGER :: uzunluk 


uzunluk — LEN(alfa5S) 
DO i-l,uzunluk 


IF(LGE(alfaS(i:i),'a') .AND.LLE(alfaS(iz:i),'z')) 
alfaS(i:i) -ACHAR(IACHAR (alfaS(i:i))-32) 


END IF 
END DO 
END SUBROUTINE BHarf 


ALIŞTIRMALAR 


8.1 Aşağıdaki program parçasını kullanarak çıktılarını bulunuz. 


CHARACTER(LEN-6) X,Y, 
CHARACTER(LEN-6), DIMENSTION( 0:4) 


CHARACTER (LEN-6), DIMENSION(-1:2) 
CHARACTER(LEN-1) :: C, E 
E-'E' 

CE 

Xs' '//C 

YZ'NUMARA' 

A(0) — Y(2:) 

BB(1) — Y(3:5) 

BB(-1) X//A(0) 

A(1) - BB(-1) 

BB(2) (3:)z A(1) //E//X 
A(4) >— X//A(2)//BB(1) 


66 FORMAT(IX,A) 


a) WRITE(*,66) C 

b) WRITE(6, 66) Y 

c) WRITE(6, 66) BB(-1) 

d) WRITE(6,66) BB(0) //X 

e) WRITE(6, 66) C//E//Y 

f) WRITE(6, 66) (A(i),i-0,4) 
g) WRITE(6, 66) (BB(i),i--1,2) 


8.2 Aşağıdaki program parçasının çıktısını bulunuz. 


:: A 


& 


THEN 


197 


198 


8.3 


8.4 


8.5 


8.6 


8.7 


8.8 


8.9 
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PROGRAM p2 

IMPLICIT NONE 

CHARACTER (LEN-132) :: tmp 

REAL :: a, b 

a-REAL (1700/2400) 

b-REAL (1700) /2400 

WRITE (tmp,100) i, j, a, b 

100 FORMAT(T11,i10,T31,i10,T51,F10.4,T28,F10.4) 
END PROGRAM p2 


En son karakter olarak nokta (. ) içeren bir alfa sayısal sabiti okuyup, bunu tersinden 
yazan bir program hazırlayınız. 

Bir Fortran kaynak programını okuyup içinden açıklama deyimlerini (ünlem işaretinin 
bulunduğu satır var mı? Varsa ünlem işaretinin olduğu kısmın çıkarılması) çıkardıktan 
sonra başka bir isimle kaydeden bir program yazınız. 

K satır içeren bir paragraftaki kelimelerin sayısını hesaplayan bir program yazınız. NOT: 
Program paragrafın bulunduğu kütüğü girdi olarak okumalıdır; ayrıca her bir satırın en 
fazla 80 karakter uzunluğunda olduğunu, nokta, virgül gibi imla işaretlerinden sonra bir 
boş karakter (' ') konulduğu ve kelimelerin — ayracı ile hecelenmediğini kabul ediniz. 


Bir Fortran kaynak programındaki FUNCTION ve SUBROUTINE'leri ayrı ayrı sayan ve 
bildiren bir program yazınız. 


ce. , 


Herhangi bir metin kütüğünü okuyarak, metindeki “veya” kelimelerini “ve” ile 
değiştiren ve yapılan değişikliklerin sayısını bildiren bir program yazınız. 

Girilen bir INTEGER sayıya son basamağından başlayarak her üç basamakta bir virgül 
ilave eden bir CHARACTER FUNCTION yazınız. Örneğin 12345678 sayısı 
12,345, 678 şeklinde yazması isteniyor. 


Aşağıdaki programların çıktılarını bulunuz. 


(a) PROGRAM program a 
IMPLICIT NONE 


CHARACTER (LEN-6) :: AD ! B.dat kütüğü verileri 
OPEN (4, FILE-'B.DAT') ! CALİ ' 
DO WHILE (EOL) ! 'BİLAL ' 
READ (4,10) AD ! 'MEHMET' 
IF(A>'D') THEN ! "CEMİL ' 
PRINT*, AD ! 'SEMİH ' 
ELSE ! 'CZEKİ ' 
PRINT*, ' ',AD 
ENDIF 
END DO 


10 FORMAT(A6) 
END PROGRAM program a 


(b) PROGRAM Program b 
IMPLICIT NONE 


CHARACTER(80) :: AlfaS, Ara 
INTEGER :: IKON, i, Uzunluk-80 
IKON-O 


AlfaS-'Bir varmış bir yokmuş. Evvel zaman içinde ' 
DO Iz1I,Uzunluk 
IF(AlfaS(I:I) /< ' ') THEN 

IKONZIKON*1 
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Ara(IKON: IKON) -Alfas(I:1I) 
ENDIF 
END DO 
PRINT*,AlfaS 
PRINT*,Ara 
END PROGRAM Program b 


8.10 Türkçe'de kullanılan bütün harfleri kapsayacak şekilde girilen tek bir karakterin büyük 
harf olup olmadığını kontrol edecek ve değilse büyük harfe dönüştürecek Buyuk Harf 
isimli bir FUNCTTON alt programı yazınız. 


8.11 Alıştırma (8.10) ile verilen sorunun küçük harfe dönüştürme işlemini yapan 
Kucuk. Harf isimli bir FUNCTTON alt programı yazınız. 


8.12 Müşterilerin sayısını (Musteri Adet), müşteri isimlerini içeren indisli değişkeni 
(isim) ve müşteri listesinde ismi olan kişi (kisi) gibi üç girdi parametresi olan ve 
LOGICAL FUNCTION VarMI olarak adlandırılması istenen bir alt program yazınız. 
Bu fonksiyon müşteri ismi (kisi) indisli listede (isim) mevcutsa TRUE, değilse 
FALSE değerini alsın isteniyor. NO7: İsimlerin maksimum uzunluğunu 20 karakter 
kabul ediniz. 


8.13 Bir alfa sayısal indisli değişken M kişinin adlarım içermektedir, isimler alfabetik sıraya 
konduğunda ilk ve son gelen isimleri geri getiren bir SUBROUTINE yazınız. 


8.14 Bir işadamı portföyündeki hisse senetlerini her gün gözden geçirerek, bazılarını satmakta 
ve ümit vaat eden yeni senetler satın almaktadır. Bu iş adamına ait bir günlük işlemi 
aşağıda verilmiştir. Bu verilere dayanarak aldığı ve sattığı hisse senetlerinin bedellerini 
hesaplayan bir program yazınız 


Kod . Hisse Senedi Emir Hisse Fiyatı 
(lot) (T/lot) 
004 Afyon Çimento AL 800 35,00 
006 (o Akbank AL 500 11,00 
016 o Arçelik AL 900 11,20 
028 Brisa SAT 300 7,20 
035 Çimentaş SAT 250 24,50 
048 Döktaş AL 420 12,10 
065 KoçBank SAT o 600 1,55 
085 İş Bankası (C) AL 660 7.20 
110 Migros SAT o 200 85,00 
135 Ziraat Bank AL 950 13,76 
158 Tüpraş AL 300 16,80 
165 o Vestel SAT o 100 3,10 


169 Yapı Kredi Bank. AL 440 3,30 


BÖLÜM 9 
VERİMLİ PROGRAM YAZMA 
TEKNİKLERİ 


9.1 PROGRAMLAMA STİLİ 


Programlama stilini tanımlamak oldukça zordur; fakat her programcının zamanla kazandığı bir 
stili vardır. Programlama stilinin karmaşık doğası, bilgisayar bilimcilerinin programlamayı bir 
bilimden ziyade "sanat" olarak tanımlamalarına neden olmuştur. Bu kısımda iyi bir 
programlama stilinin nasıl olması gerektiği konusuna değineceğiz. Bir programcı olmaya 
başladığınızda zamanla kendi programlama stilinizi ve kurallarınızı belirlemeye başlarsınız. 


Stil insandan insana göre değişir. Programcılar olarak kullanılan derleyiciler, işletim sistemleri, 
donanım yapısı ve programlama ortamlarının farklılıklarından dolayı nadiren ortak geçmişi 
paylaşırız. Bu farklılıklar herkese uyumlu ve evrensel bir takım programlama kurallarının 
belirlenmesini imkansızlaştır-maktadır. Dolayısıyla, programlama stiline her bir programın 
belirli kullanımı ve çalıştırıldığı bilgisayar ve özellikleri bakımından fonksiyonel olarak 
yaklaşılmalıdır. 


Doğru olarak yazılan bir program arzu edilen sonuçları üretir. Açıkça, bir "iyi" program aynı 
zamanda doğru olmalıdır. Genellikle belirli bir problemi çözen birçok doğru program 
yazılabilir; bunlardan bir kısmı diğerlerinden daha hızlı, kimisi daha hassas işlem yapan, 
bazıları daha az bellek ve yedek bellek gerektiren ve kimisi de çok güzel bir şekilde 
yapılandırılmış ve programa ilave yapılmak istendiğinde kolaylıkla yapılabilir durumda 
olabilmektedir, ideal bir program, bu bahsedilen özelliklerin hepsini içermelidir. Buna rağmen, 
gerçek dünyaya döndüğümüzde ideal programlara nadiren rastlıyoruz; çünkü programı iyi 
yapan etkenler bir birinden bağımsız değildir. Hesaplama hassasiyetinin artırılması genellikle 
bellek gereksiniminde bir artışa neden olacaktır. Bunun gibi bir programlama stratejisi 
yaparken programlamanın bellek gereksinimi gibi bir diğer parametresinin verimliliğini 
bozmak mümkündür. 


Bu durumda amaç ne olmalıdır? Amaç mümkün olan en iyi programı verilen sürede, mevcut 
olanakları kullanarak hazırlamak olmalıdır. Program doğru olmalı, mümkün mertebe yeterli 
açıklamalar içermeli, bellek kullanımında tutumlu, hesaplama verimliliği olan, modüler ve son 
olarak da derleyiciden bağımsız (her derleyicide çalıştırılabilen) niteliklere sahip olmalıdır. 


9.1.1 İYİ PROGRAMLAMA STİLİNİN TEMEL AKSİYONLARI 
İyi bir programlama stili kazanmak için bazı tutumlar edinmelisiniz. Bunlar: 


İyi bir tasarım ile çalışın: Bir programı dikkatli bir planlama olmaksızın çözümlemeye (hata 
ayıklama) ve değiştirmeye çalıştığınızda işleminiz bir işkenceye dönüşecektir. Bilgisayarın 
başına geçerek, program yazma arzusu herkeste fazladır; fakat bu arzuyu yenmek gerekir. 
Program kodlanmadan önce mutlaka iyi bir şekilde tasarlanmalıdır. Hata tespitinin kolay 
olması için organizasyonun mantıklı ve anlamlı olması gerekir. 
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Açık olun: Programınızı okuyacak kişi sadece siz olmayacaksınız. Belki de aradan geçen bir 
kaç ay sonra kendi programınıza bir göz attığınızda ne yaptığınızı unutmuş olduğunuzu fark 
edebileceksiniz. Uygun değişken ve alt program veya fonksiyon isminin seçimi ve programın 
içine yeterli açıklamaların serpiştirilmesi için çok az bir zaman sarfetmek yeterlidir. Bir 
programa iyi bir dokümantasyon sağlanmadığı sürece program tamamlanmış sayılmaz. 


Değiştir ve yeniden yaz: Bir programı yazdıktan sonra gözden geçiriniz. Çalıştırdığınızda 
doğru sonuç vereceğine inanıyor musunuz? Program anlaşılabilir midir? Programı daha verimli 
çalışacak bir hale getirebilir misiniz? Bu soruların ışığı altında, eğer programınızın önemli 
derecede geliştirmeye açık olduğuna inanıyorsanız (ki program her zaman daha da 
geliştirilebilir), bu durumda gerekli değişikliklerin yapılmasından kaçılmaması gerekir. 


Gereksiz işlemlerden kaçının: Bir deyim gereksiz hesaplamalar, bir alt program gereksiz 
deyimler, değişkenler ve argümanlar içermemelidir. Fazlalıklar programda karmaşaya neden 
olur. 


Standardları her zaman tercih edin: Çok sayıdaki programlama deyimlerinden bazıları 
nadiren kullanılır; bu nedenle, bunlara fazla dikkat etmeyiz. Fakat çoğu kez programlama 
dilinin bu özellikleri en kısa ve en doğru sonucu verir. Arzulanan işlevi gören arşiv 
fonksiyonları veya alt programlar öncelikle tercih edilmelidir. Örneğin, bir gurup sayının 
içinden en büyüğünü veya en küçüğünü tespit eden bir alt program yazılabilir, oysa AMAX1 ve 
AMINI alt programları, REAL sayılar ve bu iş için tasarlanmış kütüphane fonksiyonlarıdır. 


Özel diyalektlerden kaçının: Çeşitli makineler için hazırlanan FORTRAN derleyicileri 
makine özelliklerine ve donanımına bağlı olabilmektedir. Hazırlanan programın bu spesifik 
özelliklere dayandırılması (derleyici-bağımlı) arzusu karşısında, programlama basitliği ve 
verimliliği temin edebilirsiniz; fakat programınızı başka bir sistemde çalıştırmaya 
kalkıştığınızda problemlerle karşılaşırsınız. Amerika Ulusal Standardlar Enstitüsü (American 
National Standards Institute - ANSI) FORTRAN dilini ve standart deyimlerini tanımlamıştır. 
ANSI standartlarına uyan programlar bütün FORTRAN derleyicilerinde derlenebilirler. 


9.1.2 DOKÜMANTASYON 


Dokümantasyon bir programa eşlik eden ve programın nasıl çalıştığını açıklayan materyali 
tanımlar. Dokümantasyon, aslında, programın bir kısmı da (anlamlı değişken isimleri ve 
açıklamalar) olabildiği gibi bir kullanım kılavuzu şeklinde de olabilir. 


Dokümantasyon miktarı, programın ömrüne, karmaşıklığına ve kullanım yaygınlığına bağlı 
olmalıdır. Her programın kendine has özellikleri olmasına rağmen, dokümantasyon ile ilgili 
bazı genel tavsiyeler aşağıda sıralanmıştır: 


Daima ihtiyacınız olduğuna inandığınızdan fazla dokümantasyon temin ediniz; 
Dokümantasyonu mümkün mertebe program kodu içinde yapınız; 
Programınızı açık ve anlaşılır kılınız; 

Temiz ve düzenli olunuz. 


202 BÖLÜM 9. VERİMLİ PROGRAM YAZMA TEKNİKLERİ 


9.1.2.1 FORTRAN DEYİMLERİNİN TANIMLANMASI 


Sabit-kaynak stilinde (fixed-source format) yazılan bir FORTRAN programı, bir satırının 73 ile 
80 sütunları arası programı tanımlama, satır sırasını belirleme ve değişiklik yapılan satırları 
işaretleme olarak üç amaç için kullanılabilir. Genellikle 73-76 sütunlar belirli bir program veya 
alt programı isminin ilk dört harfi ile tanımlama, 77-80 sütunlar da numaralama amacıyla 
kullanılırlar. Bu prosedür satır numarası 10'arlı artışlarla bin satıra numaralamaya olanak sağlar. 
Numaralandırmanın lO'arlı şekilde artırımının nedeni, daha sonra program arasına 
yapılabilecek yeni ilavelere kolaylıkla numara verilmesi amaçlanır. Örneğin, indisli olarak 
verilen n adet sayının ortalamasını hesaplayan bir FUNCTION alt programı bahsedilen 
prosedüre uygun olarak aşağıdaki şekilde hazırlanabilir: 


1 2 7 8 
123456789012345678901 .. ......... .5618901234567890 
REAL FUNCTION Ortalama(n,x) ORTAO0MO010 
INTEGER, INTENT(IN) ::'n ORTAM020 
REAL, DIMENSTION(n), INTENT(IN)::x ORTAOM030 
INTEGER :: i ORTAM040 
REAL :: Ortalama, Topla ORTAO0050 
Topla-0.0 ORTAO0060 
DO izl,n ORTAM070 
Topla-Toplatx(i) ORTAO0080 
END DO ORTAM090 
Ortalama-Ortalama/REAL(n) ORTAO0100 
END FUNCTION Ortalama ORTAO0110 


Serbest-kaynak stilinde (fixed-source format) hazırlanan bir FORTRAN programı yukarıdaki 
kısıtlamalara tabi değildir. Adından da anlaşılacağı üzere, program deyimleri bir satıra istendiği 
sütundan itibaren yazılabilir. Satır uzunluğu en fazla 132 karakterdir. Bir satıra sığmayan 
deyimler, satırın sonuna “alt satırda devam ediyor” anlamına gelen & işareti konulur. 


1 2 7 
123456789012345678901 . . . . . . . . . . .5671890 
PROGRAM Deneme 
INTEGER :: mz40 


INTEGER, DIMENSION(m) :: a 
a(1) — a(m) * 2.*a(m-1)43.0*a(m-2)1 & 
4.*a(6) * 3.*a(5) * 2.*a(4)1 & 
3.*a(3) $* 2. *a(2) 
10 FORMAT(5(4x,f16.6)) 
20 FORMAT(2x,5E12.4) 
END PROGRAM Deneme 


PR Fortran 90/95 programı hazırlarken serbesi-kaynak formunu kullanınız! 
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9.1.2.2 AÇIKLAMA SATIRLARININ İLAVE EDİLMESİ 


En güçlü programlama araçlarından birisi de kaynak programlarda açıklama satırlarının 
kullanılabilmesidir. “Anlaşılır” ve “stratejik yerlere” yerleştirilen açıklamalar, programcının 
amacını ortaya koyar. Dikkatlice yazılan açıklamalar, programın faydasını ve gerektiğinde 
üzerinde değişiklik yapma olanağını kazandırır. Örneğin aşağıdaki açıklama satırlarını göz 
önüne alalım: 


! n'in DEĞERİNİ 3 ARTIR 


! MATRİSİN MAKSİMUM BOYUTUNU 240'a AYARLA 
I 


max boyut—240 


Birinci açıklama bloğu sadece n'in değerinin 3 artırıldığını belirtiyor; fakat ikinci blok matrisin 
boyutunun maksimum 240 olarak ayarlandığını belirtmektedir. Bu bakımdan ikinci blok daha 
anlamlı ve açıklayıcı iken, ilk blok sadece aritmetik işleminin yazı ile açıklanmasından başka 
bir işe yaramamaktadır. 


Açıklamalar herhangi bir sütunda ünlem işareti (! ) yerleştirilerek, o satırın işaretli sütundan 
sonraki sütunlarını tamamen açıklamaya ayrılır. Örneğin, 


nant3 !I n'nin değerini 3 artır 
Sicaklik-123.5 ! Sıcaklık birimi santigrat alındı 
Kütle - 5. !I Ağırlık birimi Kg'dır 


Bir diğer faydalı teknik de bazı önemli işlemlerin yapıldığı alt programlar ve modüllerin 
çerçeve içinde verilmesidir. Uzun programlarda çok sayıda alt program mevcut olabilir. Bu alt 
programlara ulaşmak isteyen programcı üzerinde çalışacağı kısmı aramasının kısa sürmesi için 
kullanılır. Örneğin, 


BAŞLANGIÇ DEĞERLERİNİ ATA 


* * 
* MATRİSİN TERSİNİ HESAPLA * 
* * 


! 
! 
! 
! 
! 
| kkk kKAkKAkKkA AA kAk4*X 
! 
! 
! 
| kkKAkKkAkKAkKkAkKkAkAkKAkAkAkAkAkKAkKAkAkAk Ak 
! 


şeklinde program modülleri veya bloklarının başı ve/veya sonu belirginleştirilir. 
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Diğer taraftan, bir kitabı elinize aldığınızda, bu kitabın adı, yazarı, basım tarihi, kullanılan 
kaynaklar v.s gibi bilgileri içerdiğini görürsünüz. Benzer şekilde, her programın başında bu gibi 
bilgiler yer almalıdır: 


PROGRAM — MAAŞ HESAP 
XX PROGRAMCI — NACİ E. ÖZTÜRK #* 
X* 


TARİH — 8 KASIM 2004 
PERSONELİN MAAŞ VE TAZMİNATLARINI HESAPLAYAN 
BİR PROGRAMDIR. 


UYARI!— MAKSİMUM 1500 KIŞININ MAAŞINI HESAPLAR. 
PROGRAMDA SON YAPILAN DEĞİŞİKLİK TARİHİ 27/3/2005 


! 
! 
! 
! 
! 
! 
l TANIM - BU PROGRAM SAĞLIK KURULUŞLARINDA ÇALIŞAN 
! 
! 
! 
! 
! 
! 


Programda kullanılan değişkenler ve sabitler, yine ana ve alt programların başında veya 
hizasında (bu durumda her değişken bir satırda tip ile beraber tanımlanır), aşağıdaki gibi 
açıklamalar ile tanımlanması, programı ilaveler veya değişiklikler yapmak için inceleyen birisi 
için, programı takip edebilmesine olanağı sağlar. 


MIN — Minimum İndis Değeri 

MAX — Maksimum İndis Değeri 

M BOY — Matrisin Boyutu 

A mat -— (M BOY X M BOY) Boyutlu Matris 


! 
! 
! 
! 
! 
! SSAPM - Standard Sapma 
! 

! 


XORT -— X'lerin Ortalaması 
veya 
INTEGER :: i ! İndis değişkeni 
REAL :: toplam ! sayıların toplamı 
REAL :: sabit-12.35 ! Katsayı çarpanı 
REAL :: Ortalama In sayının aritmetik ortalaması 


Bazen programlarda, özellikle tamsayılarla hesaplarda, bir eklenmesi veya çıkarılması 
durumlarında yeni değişkenler tanımlanmaktadır. Örneğin, 


11-141 
J1-0-1 
13-113 


Eşitliğin solundaki yeni tamsayı değişkenlerinin isimlerini programcının kolaylıkla kendi 
hafızasında tutabileceği isimler vermesini sağlamak aşağıdaki gibi mümkün olabilmektedir: 


I Arti 1-111 
J Eksi 1-0-1 
L Arti 3-113 
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9.2 HESAPLAMA SÜRESİNİN AZALTILMASI 


Bir programı hazırlarken, hazırlanan programın sadece arzulanan işlemleri yapmasını istemek 
ve beklemek yeterli değildir; programcı, program işlemlerini en hızlı şekilde yapacak tarzda 
yazmalıdır. Programın çalışmasını hızlandırma problemi, çalışma süresi kısa olan ya da az 
sayıda aritmetik veya mantıksal işlem gerektiren programlar için o kadar önemli değildir; ancak 
çalıştırıldığında saatler veya günlerce süren programlar için çalıştırma süresini (execution time) 
minimum sayıda aritmetik ve/veya mantıksal işlem yapmak ile azaltmak mümkündür. Maalesef, 
bu bazen bellek ve ikinci bellek gereksinimini, ayrıca hiç şüphesiz programlama çabalarını 
artırır. 


Günümüzde bilgisayarlar çok hızlı bir şekilde gelişmekte ve her yeni model bir öncekinden 
daha hızlı tasarlanmaktadır. Bir bilgisayarın fiyatı hızı ile doğru orantılı bir şekilde arttığı 
gözlenmektedir. Herhangi bir program çalıştırıldığı bir bilgisayarda 20 dakika sürüyorsa, bir 
başka bilgisayarda 3 dakika sürebilir; ama daha hızlı bilgisayarın fiyatı da daha pahalı 
olacağından, daima en hızlı bilgisayarı satın almak da her zaman akılcı bir çözüm değildir. 
Programın çalışma süresini kısaltmak, hesaplama süresini büyük ölçüde azaltmak, bazı akıllı 
programlama teknikleri ile mümkündür. Bu kısımda da programlamada zaman tasarrufu 
sağlayacak ve program yazmayı kolaylaştıracak bazı tekniklere değineceğiz. 


Bir programın hesaplama süresini azaltmak için harcanması gerekli çabanın saptanmasında 
aşağıdaki faktörler göz önüne alınır: 


e programın kaç kez çalıştırılacağı, 

hesaplama süresinde sağlanacak tasarruf miktarı, 
program geliştirmeye ayrılan süre, 

programın karmaşıklığı, 

bilgisayar zamanının maliyeti, 

programcı zamanının maliyeti. 


Sadece bir kez kullanılacak bir programda bu faktörler fazla önemli olmayabilir; fakat çok sık 
kullanılan ve uzun süre çalışan programlarda oldukça önem kazanırlar. 


Bilgisayarlar çeşitli hızlarda üretildiklerinden, bir sene önce üretilen bir bilgisayar çok çabuk 
demode olabilmekte ve hız bakımından yeni modellere oranla yavaş kalabilmektedir. 
Dolayısıyla, bir aritmetik işleminin bilgisayarda hesaplanma süresi farklılıklar göstermektedir. 
Aritmetiksel işlemler mikrosaniye (us) mertebesinde yapılmaktadır. Bu işlemlerin bilgisayarda 
nispi olarak yaklaşık hesap süreleri aşağıdaki tabloda sunulmaktadır. 


İşlem Gösterim (o süre (us) 
Toplama X*tY 0.4 
Çıkarma x-—Y 0.4 
Çarpma X*Y 1 
Bölme X/Y 3 

Üst Alma x**y 2 
Karekök SORT (X) 23 


X**0.5 94 
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Bu rakamlar hesaplanan bilgisayarda çarpma işlemi "bir" olacak şekilde normalize edilmiştir. 
Başka bilgisayarlarda çarpma işlemi | us olmayabilir; fakat diğer işlemler ile aradaki oran 
yaklaşık olarak yukarıdaki tabloda verilen değerler civarındadır. Bu da bize programda 
sağlanacak zaman tasarrufu hakkında nispi bir bilgi verir. 


Çalıştırma sürelerinin detaylı olarak tespiti için bilgisayar üreticisinin kılavuzuna 
başvurulmalıdır; fakat aşağıdaki genel kurallar uygulanır: INTEGER aritmetik REAL 
aritmetikten, REAL aritmetik de DOUBLE PRECISTON aritmetikten, toplama ve çıkarma 
çarpmadan, çarpma işlemi bölmeden, bölme işlemi üst almadan v.s daha hızlıdır. 


9.2.1 ARİTMETİK İŞLEM SAYISININ AZALTILMASI 


En sık karşılaşılan hesaplama verimsizliğinin sebeplerinden biri de gereksiz ifadelerin 
defalarca hesaplanmasıdır. Örneğin, ikinci dereceden denklemin kökleri 


olarak verilmektedir. Fazla tecrübeli olmayan bir programcı, köklerin hesabını aşağıda verilen 
aritmetik atama deyimleri şeklinde programlar. 


xI1I-( —-b * SORT(b**2-4.*a*c) )/(2.0*a) 
x2-( —-b — SORT(b**2-4.*a*c) )/(2.0*a) 


Buradaki deyimler fazla sayıda tekrarlayan (gereksiz) aritmetik işlemler içermektedir. Örneğin, 
b**2—4.*a*c ifadesi sadece bir kere hesaplanabilir; böylece karekök içindeki işlemin 
hesabı iki kez tekrarlanmaz: 


Deltazb**2—-4.0*a*c 
x1—( -b * SORT(Delta) )/(2.0*a) 
x2-( —-b — SORT(Delta) )/(2.0*a) 


Eğer programda Delta değerine herhangi bir nedenle ihtiyaç yoksa karekök işlemini ve payda 
değeri olan 2. 0*a'yı iki kere hesaplamaktan kurtarabiliriz. Böylece 


Payda-2.0*a 

Kok Delta-SORT(b**2-4.0*a*c) 
xI1-( -b * Kok Delta ) /Payda 
x2-( -b -— Kok Delta ) /Payda 


halini alır. Daha kurnazca bir yaklaşımla yapılabilecek bir başka işlem de, paydayı 2.*a 
çarpımı yerine ata toplamı, b**2'yi de b*b çarpımı olarak ifade etmektir. Bu durumda 
program 


Payda-AtA 

Kok Delta-SORT(b*b-4.0*a*c) 
xI1-( -b * Kok Delta ) /Payda 
x2-( -b — Kok Delta ) /Payda 


şeklini alır. Bu son durum başlangıçtaki ifade gurubundan kesinlikle daha verimli bir aritmetik 
deyim gurubu oluşturmaktadır. Yalnız burada verimliliği artırmamıza rağmen algoritmanın 
açıklığında bir azalmaya neden olduğumuzu gözden kaçırmamak gerekir. 
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Bütün bu işlemlerle hesaplama süresi kısaltılmaktadır. Bu kısalma oranına ve yapılabilecek 
başka kısaltma tekniklerine bir göz atalım: 


Bir programda E gibi kuvvetlerin hesabı gerekiyorsa, bu işlemler aşağıdaki şekilde 
yapılabilir. 


(a) (b) 

REAL :: X,.. REAL :: X,.. 
READ*, X READ*, X 
X2—X*X X2-X**2 
X3—X2*X X3—X*43 
X4—X3*X X4—X**4 


Burada (a) şıkkında verilen programda üst alma işlemleri üç çarpma işlemi ile 3us de 
yapılmaktayken (b) ile verilen programda üç üs işleminden dolayı 36 us 'de yapılmaktadır. 


Örneğin, yzxa*bx sex? kdr sex şeklinde verilen bir polinomun Fortran dilinde 
kodlanmasını ele alalım. Bir çok programcı bunu otomatik olarak 


YSA 4 BİX $ CAX##2 4 DAX##3 4 E*X#*#4 


şeklinde kodlar. Burada yapılan işlemler 3 üst alma (3Xx12-36 us), 4 çarpma (4x1-4 ys) ve 4 
toplama işlemi (4Xx0.4-1.6 us) yapılarak, 41.6 us sürecekir. Oysa bu formülü aşağıdaki gibi 


YAAHX* (BHX* (CHXA(D1E*X))) 


şeklinde parantezlere ayrılmış (y—a* x(b*x(c*x(d-*ex))) ) olarak kodlayarak üst alma 


işleminden de kaçınabiliriz. Toplam işlem süresi (4 çarpma * 4 toplama işlemi) 5.6 us 
olmaktadır. 


Benzer şekilde, aşağıdaki matematiksel formülün programlanmasını ele alalım. 


z-| > e » vasb) 


a? — b. a-*-3b 
Bu formülü 


Z-((A4B) / (A**2-B#42)4*,54(A#*2-B*X2)4X.5/(A43.*B))/ & 
#((A**2-BX#2)#X,54A4B) 


şeklinde programladığımızda 8 toplama ve çıkarma, | çarpma, 6 üst alma, 3 bölme ve 3 karekök 
hesabı (üst şeklinde) yapılmaktadır. İşlem süresi 367.2 us bulunur. Oysa 


C—SORT (A*A-B*B) ! 3 kez tekrarlanan terim 
D—AHB ! 3 kez tekrarlanan terim 
Z—(D/C4#C/ (C42.#B) ) / (C4D) 


şeklinde programlayınca hem hata yapma olasılığı azalmakta hem de işlem süresi 37 us'ye 
düşmektedir. Diğer taraftan kullanılan değişken sayısı artmakta bu kez programın kullandığı 
belleği artırmaktadır. 

Az sayıda değişken kullanarak, bellekten yana tasarrufta bulunmak için, aşağıdaki ifadenin 
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FORTRAN olarak kodlanmasına şöyle bir örnek de verilebilir. 


abx . rP 
kc (14r)“—1 


yz 


Cebirsel işlemi hem parçalayarak, hem sayısal değerlerin hafızaya yerleştirilmesi kuralından 
yararlanarak, hem daha az sayıda “gerçek” değişken kullanarak şu şekilde kodlayabiliriz. 


YI—I  *C ı Miele 

YI-A*B*X/YI !I Yl&abx/YI yani YI<abx/(14*c) 
Y2-1.4R ı Y2 lir 

Y2SY2**N-I1. I Y2€Y2"-I yani Y2 <(14r)"-I 
Y2-Y2/R I Y2 €Y2/r yani Y2<|(14n)"-IJ/r 
Y-YI4*P/Y2 


Programlarda, sık sık aşağıdaki örneklere benzer şekilde, bir değişkeni veya aritmetik işlem 
gurubunu sabit bir sayıya bölüme işlemi uygularız: 


X-(At3.*2**(1./4.))/3.0 
A-C/2.01X/5.0 


Aritmetik deyimleri bu şekilde kodlamaktan kaçınıp, bölme işlemlerini çarpma işlemine 
çevirmekte yarar vardır; çünkü zamandan yaklaşık “o 70 tasarruf sağlanmaktadır. Yani. 
yukarıdaki deyimler 


X-0.3333333*(A13.*72**0.25)/ 
A-0.5*C10.24X 


olarak yazılabilir. Dikkat edilecek olursa 0.3333333 sabitinin sadece 7 basamağı girilmiştir. 
Bunun nedeni de tek hassasiyetle çalışırken, hatırlanacağı üzere, bellek depolama kapasitesi 
yaklaşık 7 basamak olmasıdır. 


ra Sabit bir sayıya bölme veya üs alma işlemlerinden “mümkün olduğu kadar” 


kaçınınız; aritmetik ifadelerinizi daha ziyade çarpma işlemi şeklinde yapınız. 
x/220.54X XAX*3İZXİKİX 


Mühendislik hesaplarında sabitler (7 ve e sayısı gibi) sıkça kullanılır. Bunları, kullanıldıkları 
programların başında, aşağıdaki şekilde tanımlamak sabitin yedi, REAL(KIND-8) de ise 
15-16 basamağa kadar doğru olarak hesaplanmasına sebep olur; ayrıca programda defalarca 
tanımlamaya gerek yoktur. 


REAL :: pi, e 
pi — 4.0*ATAN(1.0) 
e — EXP(1.0) 


Burada tan (1) —n/4 ve ezel olup arşiv fonksiyonlarının özelliklerinden faydalanılmıştır. 
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aritmetik işlem sayısını azaltmak için azami gayret gösteriniz. 


) m Çok uzun süre çalışan, milyarlarca aritmetik işlemin yapıldığı programlarda, 


9.3 HESAPLAMA HASSASİYETİNİN ARTIRILMASI 


Bilgisayarlar bile hata yaparlar. Bir bilgisayar her ne kadar iki kere ikiyi beş olarak 
hesaplamasa veya toplama işlemi yapacağı yerde çarpma işlemi yapmasa da, daha karmaşık 
hatalar yapabilmektedir. Bu hatalardan bilgisayara güvenememe ya da bilgisayarın her işlemini 
elle kontrol etmek gerekir gibi bir anlam çıkarılmamalıdır; sadece program yazarken hesaplarda 
hatalara yol açabilecek durumların farkında olunmalı ve bu tür hatalara olanak verilmemelidir. 


Sonuçlardaki yanlışlık bilgisayarın sayıları kullanma ve bellekte saklama yönteminden 
kaynaklanır. Matematik bilgimiz (1./3.) *3. işleminin "1" olması gerektiğini söylerken, 
bilgisayar farklı cevap vermektedir. 1./3. bölümü 0.3333333.... iken 3'lerin sayısı 
sonsuz olup, bu değer bilgisayarda doğru bir şekilde depolanamamaktadır. Bu değer 3. ile 
çarpılınca sonuç İ'den biraz küçük olur; yani sayısal değerler, gerçek değerlerine en yakın 
değere yuvarlanarak depolanır. Örneğin, 7, e ve 1./6. - 0.166666.. gibi sayıların 
sadece 7 basamağa kadar olan kısımları hassas olarak bellekte depolanır. 


Bazen çok küçük sayılar bellekte, sahip oldukları değerlerin biraz altında, depolanırlar; örneğin 
0.1 ve 0.02 gibi sayılar 00.0999999 ve 0.019999 olarak saklanır çünkü ikilik sayı 
düzende 0.1'in değeri 0.0001100110011... dir, yani tekrarlı bir sayıdır. Bu sayılar ile aritmetik 
işlemlerin çok sayıda tekrarlanması, hesaplanması gereken değerin son basamaklarında 
belirgin sapmalara neden olur. Aradaki fark başlangıçta çok az olmasına ve ihmal edilebilir 
görünmesine rağmen, sapmanın milyonlarca işlemde tekrarlanması daha büyük hatalara sebep 
olacak ve sonucu geçersiz kılacaktır. 


Bu tür hataları ve bazı durumlarda bu hatalardan sakınma yollarını açıklamak bakımından | 
sayısına 100 adet 0.01 ilave etmeyi deneyelim. Bu işlemi yapmak için aşağıdaki şekilde bir 


program hazırlanmış olsun: 


PROGRAM Test 


REAL :: Az1.0, DT-0.01 
INTEGER :: nzlOl, i 
DO i-2,n 


A-A 4 DT 
WRITE(*,10) A 

END DO 

10 FORMAT(1x,F9.6) 

END PROGRAM Test 


Bu program 100x0.01412 sonucunu vermesi gerekirken, en son değer milyonda bir eksik 
hesaplanmıştır. Bu eksikliğin nasıl oluştuğunu program çıktısı olan ara hesaplar ile birlikte aşağıda 
verilmektedir: 
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Sonuçlar aşağıda özetleniştir: 


1.010000 1.020000 1.030000 1.040000 1.050000 
1.060000 1.070000 1.080000 1.090000 1.100000 
1.110000 1.120000 1.130000 1.140000 1.150000 
1.160000 1.170000 1.180000 1.190000 1.200000 
1.210000 1.220000 1.230000 1.240000 1.250000 
1.260000 1.270000 1.280000 1.290000 1.300000 
1.310000 1.320000 1.330000 1.340000 1.350000 
1.360000 1.370000 1.380000 1.390000 1.400000 
1.410000 1.420000 1.430000 1.440000 1.450000 
1.460000 1.470000 1.480000 1.490000 1.500000 
1.510000 1.520000 1.529999 1239999 1.549999 
1559999 1.569999 1.579999 1.589999 1. 599999 
1.609999 1.619999 1.629999 1.639999 1.649999 
1.659999 1.669999 1679999 1.689999 1.699999 
1.709999 1.719999 1.729999 1.739999 1.749999 
1.759999 1.769999 1.7719999 1.789999 14799999 
1.809999 1.819999 1.829999 1.839999 1.849999 
1.859999 1.869999 1.879999 1.889999 1.899999 
1.909999 1919999 1.929999 1939999 1.949999 
1.959999 1.969999 1.9719999 1.989999 1.999999 


(NOT: Bu çıktılar aslında alt alta ve tek sütun halindedir; fazla yer kaplamaması için yan yana 
düzenlenmiştir.) 


Burada görüldüğü üzere, özellikle 1.52'den sonra 1.53 elde edilmesi gerekirken 1.5299999 
hesaplanmıştır. Bu işlemi devam ettirirsek, yani 1 sayısına 100 adet değil de, 200, 400, 800, 100 adet 
0.01 ilave ettiğimizde, son değer ne olur? Bu soruyu cevaplamak için verilen Test programında 
101 değerini değiştirerek bulabiliriz. 


Sonuçlar aşağıdaki tabloda özetlenmektedir: 


N Gerçek Değer o Hesaplanan Değer 


101 2.000000 1.999999 
201 3.000000 2.999998 
401 5.000000 5.000020 
801 9.000000 9.000112 
1001 11.000000 11.000160 


Görüldüğü üzere mutlak hata, yani hesaplanan değerin gerçek değerden mutlak değerce sapma 
miktarı, artan aritmetik işlem sayısı ile artmaktadır; diğer bir deyişle, sayının son basamaklarında 
bozulma, işlem sayısı arttıkça ondalık noktasına doğru ilerlemektedir. İşlem sayısı 1000 iken, 
mutlak hata yüz binde 16'dır. Bu işlemi milyonlarca kez tekrarlamış olsaydık ne olurdu? sorusunu 
cevaplamaya çalıştığımızda işlem sonucundan artık emin olmayacağınız aşikardır. 


Bu problemin üstesinden gelmenin bir yolu mevcuttur. Bu da toplama işlemini ondalıktan 
kurtardıktan sonra bölme işlemi yapmak suretiyle ile başarılabilir. Yani 0.01 sayısından kurtulmak 
için bunu 100 ile çarpmak gerekir; bu durumda | sayısı da 100 ile çarpılır ve 100 sayısına I'ler ilave 
edildikten sonra 100'e bölünürse, arzu edilen sonuç elde edilir. 
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Bu mantığa göre hazırlanan program aşağıdaki şekilde hazırlanabilir: 


PROGRAM Test Yeni 
IMPLICIT NONE 


REAL :: Bz-100., Cz1.0, A-1.0 
INTEGER :: i, nzlOl 
DO i-2,n 

B—-—B*tcC 


A - 0.01 * B 

WRITE (6,10) A 
END DO 
10 FORMAT(1X,F9.6) 
END PROGRAM Test Yeni 


Programın n-101 için çıktısı aşağıda verilmektedir. Çıktıda hatalar önlenmiş olmaktadır. Bu 
program n'in hangi değeri için olursa olsun, çalıştırdığında daima gerçek değeri verecektir. 


1.000000 1.010000 1.020000 1.030000 1.040000 1.050000 
1.060000 1.070000 1.080000 1.090000 1.100000 1.110000 
1.120000 1.130000 1.140000 1.150000 1.160000 1.170000 
1.180000 1.190000 1.200000 1.210000 1.220000 1.230000 
1.240000 1.250000 1.260000 1.270000 1.280000 1.290000 
1.300000 1.310000 1.320000 1.330000 1.340000 1.350000 
1.360000 1.370000 1.380000 1.390000 1.400000 1.410000 
1.420000 1.430000 1.440000 1.450000 1.460000 1.470000 
1.480000 1.490000 1.500000 1.510000 1.520000 1.530000 
1.540000 1.550000 1.560000 1.570000 1.580000 1.590000 
1.600000 1.610000 1.620000 1.630000 1.640000 1.650000 
1.660000 1.670000 1.680000 1.690000 1.700000 1.710000 
1.720000 1.730000 1.740000 1.750000 1.760000 1.770000 
1.780000 1.790000 1.800000 1.810000 1.820000 1.830000 
1.840000 1.850000 1.860000 1.870000 1.880000 1.890000 
1.900000 1.910000 1.920000 1.930000 1.940000 1.950000 
1.960000 1.970000 1.980000 1.990000 2.000000 


Bilgisayarın yetenekleri ve karakteristiklerinden bahsederken (Bölüm | Kısım 1.2.6) 2'nin 
kuvvetleri olan sayıların bilgisayarda tam olarak temsil edildiğinden bahsetmiştik. Bunlar 2, 4, 
8,.... ve 0.5, 0.25, 0.125, .... gibi tam ve ondalıklı sayıları (ikinin negatif tam kuvvetleri) 
içermektedir. 


Bu problemlerin üstesinden gelmenin bir başka yolu da programdaki sayıları (veya programı) 
DOUBLE PRECISION/REAL (8) olarak tanımlamaktır. Ancak bu sorunu tam olarak çözmez. 
Bu kısımda bahsedilen hata türlerinin alt ve üst sınırlarını değiştirir. Diğer taraftan aritmetik 
işlemlerin sebep olduğu yuvarlama hatalarına neredeyse kesin çözüm getirmektedir. Bunun 
nedeni de çift hassasiyetli sayıların 15-16 basamağının bellekte korunması ve aritmetiklerin bu 
basamaklara kadar hassas olarak yapılmasından kaynaklanmaktadır. 


Çift hassasiyetli programlamaya örnek olarak, aşağıdaki programı ve sonuçlarını inceleyelim. 


Bu program parçası tek hassasiyetli (SINGLE PRECİSTON) olarak yazılmıştır. 
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REAL :: Xx,pi 

x - 22.0/7.0 

pi - 4.*ATAN(1.0) 
WRITE(6,10) Xx, pi 

10 FORMAT(2(1X,F18.15)) 


Bu programın çıktısı 


3.142857000000000 3.141593000000000 


olarak elde edilir; çünkü ilk altı basamaktan sonrası için atama yapılamadığından, bu 
basamakların değerleri sıfırdır. Oysa programı DOUBLE PRECISTON'a dönüştürmek için 
REAL deyimini DOUBLE PRECISTION ve ATAN fonksiyonunu da DATAN ile değiştirmemiz 
yeterli olacaktır. Bu arada sabitlerin de çift hassasiyetli olarak saklanması için ondalık 
noktasından sonra DO ilavesini yapmak gerekir. Bu durumda 


REAL(KIND-8) :: Xx, pi 
x — 22.D0/7.D0O 

pi <- 4.DO*DATAN(I.DO) 
WRITE(6,10) Xx, pi 

10 FORMAT(2(1X,F18.15)) 


programının çıktısı 


3.142857142857143 3.141592653589793 
olarak elde edilir. Bellekte depolanan basamak sayısı aynen çıktıda gözükür. 
9.4 PROGRAMLAMADA BAĞIMSIZLIK, GENELLİK VE BÜTÜNLÜK 


Bağımsızlık: Bir programın bağımsızlığı, farklı derleyici ve işletim sistemlerinde veya 
bilgisayarda ne kadar kolay çalıştırılabildiğinin bir ölçüsüdür. Bir program ne kadar bağımsız 
ise bu programı yeni bir bilgisayar ortamına aktarmak, bu ortamda (PC, Network, Çalışma 
istasyonu, Main Frame v.b) kullanmak o kadar kolay olur. Geniş bir kullanım alanına yönelik 
olarak hazırlanan bir program veya alt programda bağımsızlığa mutlaka büyük önem verilmesi 
gerekir. 


Programcının bağımsız bir program hazırlaması için, kullanılan derleyici, işletim sistemi ve 
donanım hakkında detaylı bilgi sahibi olmak gerekir; bunlar programcının yükünü biraz daha 
artırır. Bir program, diğer ortamlarda mevcut olmayan alt programları veya özellikleri 
kullanarak, belirli bir ortamın avantajlarına dayanmamalıdır. 


Bağımsız bir program hazırlamanın en güzel başlama noktası ANSI standardına uyum 
sağlamaktır; çünkü derleyici yazılımcılarının bir çoğu bu standartlara uyumlu derleyiciler 
hazırlarlar. 


Genellik: Bir programın genelliği programın biraz farklı, fakat aşağı yukarı aynı işi görmesi 
için ne kadar kolaylıkla değiştirilebileceğinin bir ölçüsüdür. En çok üzerine düşülen nokta, girdi 
verilerinin nasıl temin edileceğidir. Örneğin, bir grafik çizim programı oldukça yüksek 
derecede genelliğe sahip olmalıdır: 
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Aynı eksen takımı üzerinde birden fazla grafiğin çizilebilmesi; 

Herhangi sayıda veri girdisini her formatta kabul etmesi; 

Geniş bir aralıkta her türlü veriyi kabul etmesi; 

INTEGER ve REAL değerleri yorumlayabilmesi; 

Pozitif veya negatif değerleri de kabul etmesi; 

Eksenleri ölçeklendirebilmesi (lineer veya logaritmik ölçekte); 

Seçenek olarak eksenleri ve grafiği etiketlendirebilmesi; 

Seçenek olarak veriler arasında interpolasyon noktaları oluşturabilmesi ve 
interpolasyon hesabı yapması; 

e Bir yazıcıya, monitöre veya bir çiziciye uyumlu çıktı üretebilmesi v.b. 


Programda yukarıdaki maddelerin her birinin içermesi, belki bazı seçeneklerin asla 
kullanılmaması olasılığına rağmen, çok yoğun bir programlama gerektirecektir. Çalıştığı ortam 
için hangi seçenekleri ilave etmek veya çıkarmak programcının sorumluluğudur. Çok detaylı ve 
genel kapsamlı mükemmel bir program yazmak için harcanan zaman gerekli ya da gereksiz 
midir? Program, buna ilave edilen bu seçenekler ile, daha büyük, karmaşık ve yavaş bir 
program ile sonuçlanıyor mu? Bu gibi sorulara cevap aramak; cevaplar karşısında genellik 
sınırlarını belirlemek gerekir. 


Bütünlük: Bütünlük, bir programın farklı girdi değerlerinde bile doğru sonuç verme 
becerisinin; bir anlamda, bir programın hatalardan ne kadar arındırıldığının ve çeşitli durumlar 
için ne derece test edildiğinin bir ölçüsüdür. Örneğin, sayıları büyükten küçüğe doğru dizen bir 
programda sayıların tümü pozitif iken başarılı bir işlem yapar; fakat negatif sayılar söz konusu 
olduğunda dizim işleminde hata verirse, bütünlükten yoksundur. Kullanılan bir indisli 
değişkenin üst sınırını aşıp aşmadığını, bölme işleminde sıfıra bölüm olup olmadığını kontrol 
etmeyen bir program bütünlüğe sahip değildir. 


9.55 PROGRAMI BASİTLEŞTİRME 


Programı basitleştirme, hem programın çalışmasını hızlandırma bakımından, hem de program 
yazım aşamasında daha az hata yapmak bakımından faydalı olabilmektedir. Daha önce 
bahsedilen hızlandırma işlemleri de basitleştirmenin bir parçası olarak sayılabilir. Buna 
ilaveten, bir programda yapılan işlem gurupları programın çeşitli yerlerinde tekrarlanıyorsa, 
tekrarlanan işlemleri gerekirse fonksiyon veya altprogramlar şeklinde hazırlamak gerekir. Bu 
şekilde çok sayıda tekrarlanan işlemler için fonksiyon ve alt program hazırlama şeklinde 
program yazma tekniğine modüler programlama denir. Örneğin, bir programda 8 kez farklı 
sayıda veri guruplarının ortalaması hesaplanıyorsa, N adet veri için ortalama hesabı yapan bir 
alt program bütün veri gurupları için kullanılabilir. Programda hata varsa, program daha kısa 
olacağından hatayı yakalamak daha kolay olur. Fakat her veri gurubunun ortalaması programda 
yeri geldikçe ve alt program kullanmadan yapılıyorsa, bunlardan bir veya birkaçının ortalama 
hesabında hata yapma olasılığı artar. 


Bir matematiksel problemin çözümünde çeşitli metotları kullanırken, önce programlaması en 
basit olan metotlar ile yola çıkınız. Yani interpolasyon gerekli ise önce lineer interpolasyon, 
integral alırken yamuklar kuralını v.b programlayınız; çünkü hem formül olarak daha basit hem 
de programı daha kolaydır. Program tamamlandıktan sonra programınızı çalıştırarak 
araştırdığınız sonuç parametrelerin mantıksal olarak doğru olup olmadığını kontrol ediniz. Eğer, 
örneğin bir maddenin hesaplanan yoğunluğu veya bir merminin uçuş süresi negatif çıkıyorsa 
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programda ciddi bir hata var demektir. Fakat program doğru ve mantıksal sonuçlar veriyorsa 
programınızı geliştirmeye başlayabilirsiniz. 


Kaç adet modül (altprogram veya fonksiyon) kullandıysanız, bunları teker teker geliştirin ve 
her değişiklikten sonra programınızı çalıştırıp önceki sonuç parametreler ile kıyaslayınız. 
Bütün modülleri aynı anda değiştirmeye kalkarsanız ve program parametreleri mantıksız bir 
şekilde değişirse, o zaman hangi modülde hata yaptığınızı bulmak zorlaşır. 


Bazı programlama kitaplarında veya internetteki sitelerde, belirli işleri yapmak için alt 
programlar bulabilir; ve bu programları kendi programınızda kullanmak isteyebilirsiniz 
(örneğin, bu kitapta da integral, türev, v.s işlemlerini yapan altprogramlar verilmiştir). Bu 
durumlarda kullanmak istediğiniz programları bir kaç örnek ile test ediniz. Programın doğru 
çalıştığından ve doğru sonuçlar ürettiğinden emin olduktan sonra kendi programınızda 
kullanabilirsiniz; çünkü kitaplardaki programlar yazılırken hatalı verilebilme olasılığı vardır ve 
sizde programdaki hatadan habersiz olabilirsiniz. 


9.6 BELLEK GEREKSİNİMİ 


Bir program yazarken kullanılan değişken sayısı ve tipi, programın bellek gereksinimini 
belirler. Bilgisayarların anında ulaşabileceği RAM (Random Access Memory-Rastgele 
Erişimli Bellek) sınırlıdır. Şu andaki teknolojik sınır Windows işletim sisteminde 640 Kb'dır; 
ancak genişletilmiş bellek (ex#ended memory) ile artırılabilmektedir. Sistem programlarının bir 
kısmı bilgisayar açılır açılmaz, bilgisayarda kurulu olan tüm programların bir kısmı bu belleğe 
yüklenir, kullanılabilir bellek alanı azalır. Bir program yazarken kullanılan değişken sayısı ve 
tipi, artı bazı derleyici mesajları ve komutları kullanılabilir ana bellek miktarını aşmamalıdır. 
Aksi takdirde program bilgisayarınızda çalışmaz. 


Tablo 9.1 Değişkenlerin tiplerine göre bellek gereksinimi. 


Değişken Tipi Bellek Gereksinimi (Byte) 
INTEGER(KIND-I) 1 
INTEGER(KIND-2) 2 
INTEGER 4 
REAL 4 
REAL (KIND-8) 8 
DOUBLE PRECISION 8 
COMPLEX 8 
COMPLEX (KIND-16) 16 
LOGICAL 4 
CHARACTER (LEN-m) mt3 


Değişkenlerin tipine göre bellek alanında işgal ettiği yerler bayt (Byte) olarak Tablo 9.1'de 
verilmektedir. Her bir değişkenin tipiyle değişen bu miktarlardan dolayı mümkün olduğu 
sürece bellek gereksinimi az olan değişken tipinin kullanımı daha ekonomik olur. 


Bir alfa sayısalın depolanması için gerekli bellek, alfa sayısal değişkenin uzunluğuna üç 
ilavesiyle bayt olarak elde edilir; yalnız alfa sayısal sabitin veya değişkenin başlama ve bitiş 
yerlerini belirleyen (' ve “) işaretleri bu uzunluktan sayılmaz. 
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Bellek gereksinimi indisli değişkenlerde de indisli değişkenin tipine göre hesaplanabilir. 
Örneğin, REAL, DIMENSION(0:12)::A deyimi ile tanımlanan A indisli değişkeni, 
tanımdan da anlaşılacağı üzere tek hassasiyetlidir; ve bellek gereksinimi 13x452 Bayt'tır. 
Fakat DIMENSTON (12) olarak tanımlanınca indisi 1'den 12'ye kadar olan 12 adet bellek alanlı 
bir indisli değişken oluşturulur; bu durumda da bellek gereksinimi 12x448 Bayt olmaktadır. 


CHARACTER(LEN-15), DIMENSION(120) ::ad şeklinde tanımlanan bir indisli alfa 
sayısal değişkenin bellek gereksinimi (151-3) x 1212178 Bayt olur. 


Şimdi şöyle bir durumu inceleyelim. Nüfusu 200,000 olan bir kasabadaki insanların isim ve 
soyadı bilgisayara girilecekse, bunları programa bir kütük ile uzunluğu 20 karakter olabilen bir 
indisli alfa sayısal olarak temin ettiğimizi varsayarsak, gerekli yardımcı bellek (disk alanı) 
gereksinimi 200,000Xx(20-3 )-4,600,000 Bayt'tır. Bu miktar yaklaşık olarak 4.387 Mb'a (Mega 
bayt) karşılık gelir. Bu bilgileri indisli değişken ile bilgisayar belleğinde muhafaza etmek için, 
görüldüğü üzere en az 4.4 Mb ana bellek gerekecektir. Bilgisayarınızda buna yetecek 
genişletilmiş belleğiniz yoksa "Bilgisayarda bu programı çalıştırmak mümkün değildir" anlamı 
çıkmaktadır. 


Bu problemde, ayrıca her bir şahsın cinsiyetinin de indisli alfa sayısal olarak temin edilmesi 
arzulanırsa, 'ERKEK' veya 'KADIN'ın her ikisi 5 karakter olduğundan, 200,000x8- 
1,600,000 Bayt (1.526 Mb) elde edilir; oysa cinsiyet 0 ve | şeklinde (0-Erkek, 1-Kadın'ı temsil 
edecek şekilde) bir tamsayı indisli değişkeni ile kodlanırsa 200,000x1-200,000 Bayt (0.191 
Mb) elde edilerek, bellek alanı olarak © 87.5 tasarruf sağlanır. Ancak bu tamsayı tipi 
INTEGER (KIND-I ) olarak tanımlanmalıdır; çünkü INTEGER (KIND-I ) üst sınırı 127'dir. 


Programlama tekniği ve bellek gereksinimi açısından, alfa sayısal değişkenler yerine, 
sayısal-hatta mümkünse-tamsayı değişkenler kullanılmalıdır. Örneğin, yukarıdaki problemde 
olduğu gibi cinsiyeti bellekte 'KADIN' veya 'ERKEK' gibi alfa sayısal olarak saklamak 
yerine tamsayı değişkenini 0 veya | ile temsil edebiliriz. Buna benzer şekilde, şahısların 
“medeni hali?” Medeni Hal değişkeni, 'EVLİ', 'DUL', 'BEKAR', 'BOŞANMIŞ' 
değerleri yerine tamsayı olarak tanımlayıp, O evli, 1 dul, 2 bekar ve 3 boşanmış'ı temsil edecek 
şekilde kodlanabilir. Yabancı dil ('FRA', 'ING', 'ALM' v.s) gibi veriler tamsayılar, 
özellikle INTEGER (KIND-I) (verilen tamsayı kodları 127'yi aşarsa INTEGER (KIND- 
2) 'nin sayı aralığına denk gelir) olarak, ile belirtilebilir. 


9.7 VERİLER VE KÜTÜK KULLANIMI 


Veriler, çoğu zaman programların en can alıcı ve kaçınılmaz unsurlarıdır. Aynı zamanda 
program hatalarının büyük bir kısmını da verilerin programa girilmesinde ortaya çıkmaktadır. 
Örneğin, 20x20 boyutundaki bir matrisin 400 elemanını bir READ*, deyimi ile programa 
ekrandan girmeye kalkarsanız hata yapmanız kaçınılmazdır; ayrıca veriyi programa girme 
süreniz muazzam bir şekilde artar. Fakat programa veri okutma işlemini bir kütük kullanımı ile 
sağlarsanız, yanlış girilen bazı verileri yakalayıp düzeltmek daha kolay olur (yanlış olmayanları 
yeniden girmek zorunda kalmazsınız). 


Binlerce sayıda veriyi sıralı erişimli kütüklerden okumak, rasgele erişimli kütükte saklanan 
veriyi okumaktan daha fazla zaman gerektirir. Bu nedenle gerektiğinde rasgele erişimli kütük 
oluşturmak çok sayıdaki veriyi okumaktan daha hızlıdır. 
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Ayrıca zaman zaman binlerce bazen milyonlarca veri içinden sadece bir kaçına ulaşmak 
istenebilir. Örneğin bir kasabada yaşayan bütün insanların isim, soyadı, adresi, doğum tarihi ve 
yaşının bir kütükte tutulduğunu kabul edersek, bir şahsa ait bilgilere ulaşmak için bütün bir 
kütüğü taramak durumunda kalabiliriz. İsmi kütüğün başına yakın bir yerde ise verilere daha 
kısa sürede ulaşmak mümkün olur; fakat sonunda ise daha uzun bir süre gerekir. Bu nedenle 
arama (bulma) işlemleri sıralı kütük kullanımı yerine rasgele-erişimli kütükler açılarak 
başarılmalıdır. Burada arama işlemini yapmak için uygulanan algoritmanın da arama zamanını 
kısa tutmak bakımından çok büyük önemi vardır. 


9.8 ÇÖZÜMLEME (DEBUGGING) 


Eğer her program yazıldığı ilk durumuyla çalışsaydı, programlama şu andakinden çok daha 
kolay bir iş olurdu. Maalesef, profesyonel tecrübeli bir programcı bile hata yapar ve program 
nadiren ilk hazırlandığı şekliyle çalışır. Hataları bulma ve düzeltme işlemine çözümleme 
(debugging) veya hata ayıklama adı verilir. Bazen bir programdaki hataları tespit etmek için 
harcanan zaman, programı yazmak için harcanan zamandan daha fazla olabilmektedir. 


Programcıların yaptığı hatalar mantık (programlama ve çalıştırma hataları olarak ayrıca iki 
kısma toplanabilir) ve sentaks hataları olarak iki gurupta toplanır. Sentaks hataları, program 
deyimleri ve ifadelerinin FORTRAN kurallarına uymadığı durumlarda ortaya çıkar. Bunlar 
genellikle nokta, virgül, iki nokta üst üste, ünlem ve/veya satır devamı için & işaretinin 
kullanılmaması, parantez eksikliği veya fazlalığı v.s; yani daktilo hataları olarak nitelendirilen 
hatalar şeklinde ortaya çıkarlar. Mantık hataları ise programdan beklenen sonuçların elde 
edilmemesine neden olur. Bu hatalar ya program algoritmasının yanlış hazırlanmasından ya da 
algoritmanın yanlış kodlanmasından kaynaklanır. Derleyiciler program deyimlerini dikkatlice 
kontrol ederek yapılan sentaks hatalarını programcıya rapor eder. Mantık hataları ise, 
derleyicinin programcının amacını, yani ne yapmak istediğini bilmemesinden kaynaklanır ve 
tespiti en zor olan hatalardandır. Bu nedenle, FORTRAN kurallarını ihlal eden bir program 
başarı ile derlenmez; fakat, buna karşın, program deyimlerinde sentaks hatası bulunmadığı 
sürece mantık hatalarını tespit edemez. 


9.8.1 SENTAKS HATALARI 


Bu hata mesajlarından büyük bir kısmı programlama deyimlerinin yanlış olarak kullanılmasıdır. 
Bunlar ya programlama deyimlerinin ve kurallarının tam olarak bilinmemesinden ya da 
klavyeden girişte dikkatsizlik sonucunda meydana gelirler. Bunlardan "Nested Dos with 
same control variable", "DO increment must be non-zero", "Logical 
constant misspelled" v.b mesajlar programlama deyimlerinin yanlış veya eksik 
kullanımına örneklerdir. 


Bir başka hata türü de gramer ya da sentaks (syntax) hatası adı verilen eksik veya fazladan 
parantez, fazladan nokta veya virgül kullanımı vb hatalardır. Bazı derleyiciler bu hataları 
düzeltebilmekte iken yapılan düzeltme programcının arzu ettiği şekilde kullanımına aykırı 
olabilmektedir. Sentaks hatalarına çok sık rastlanabilmesine rağmen bulunup düzeltilmesi en 
kolay olanlardandır. 


Sentaks hataları genellikle programın çalışmasını engeller; yani programdaki sentaks hatası 
düzeltilmeden program çalışmaz. 
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Atama deyimlerinde en çok karşılaşılan hata parantezlerin eşleşmesidir. Açılan her parantez 
mutlaka kapatılmalıdır; yani her sol paranteze bir sağ parantez karşılık gelmelidir. Kullanılan 
parantez sayısı az olduğunda bu hatayı yakalamak daha kolaydır: 


Yanlış Doğru 
X-3.14*(A-B X-3.14*(A-B) 
TZA*1.IR) **N TSA*(I.İR) **N 


ancak çok sayıda parantezlerde hatayı yakalamak biraz daha zorlaşır: Hatalı Deyimler 


X-A* (BH (C-D) #E 
YE(((X**(A-3.*(C/4.)) 4XK-B) 
Z-SORT(1.—A/(B-1.) * (C* (SIN(B))))) 


Burada hatayı parantezleri sayarak bulabilirsiniz. Sağ ve sol parantezlerin adedi aynı olmalıdır. 
Derleyici bu tür hataları yakalayacaktır; ancak formülün yazımı sırasında parantez sayısı aynı 
olsa bile yanlış yere yerleştirilen bir parantez ile yapılan mantık hatasını yakalamak mümkün 
olmamaktadır. Örneğin, x —(a—b)/ ab formülünü X— (B-A) /A*B şeklinde yazılımı yanlıştır; 
çünkü x—(a—b)b/a ifadesine karşılık gelir. Doğru olarak yazılmış aritmetik ifade 
X— (B-A) /(A*B) şeklinde olmalıdır. Bu nedenle sentaks hatalarında formül veya sabitlerin 
doğru olarak girilip girilmediği dikkatlice kontrol edilmelidir. 


X-12..35 


Yukarıda verilen ifadede nokta (. ) fazladan konmuştur. Program çalıştırıldığında ve bu satıra 
geldiğinde derleyiciler 'Syntax error in 123' (Burada 123 hataya rastlanan satır 
numarası olacaktır) veya 'FATAL — Incomplete statement . ' veya 'Character 
expected but not found.' gibi bir hata mesajı verir. Mesajlardaki bu farklılıklar 
derleyicilerin farklılıklarından kaynaklanmaktadır. 


9.8.2 ÇALIŞTIRMA HATALARI (EXECUTION ERRORS) 


Sentaks hatalarından farklı olarak program çalışırken, program çalışmasının bir hata mesajı ile 
durdurulması durumu söz konusu olabilir. Bu şekilde programın çalışmasını sona erdirmesine 
çalıştırma hatası (execution errors veya run-time errors) denir. Bu hata mesajları arasında 
"overflow ...", "Underflow ..." v.b hata mesajları sayılabilir. Bunlar programdaki 
sabitler eksik veya tanımsız ise (özellikle bölme işleminde tanımlanmamış değişkenin bellek 
değeri sıfır olduğunu hatırlayalım), programdaki değişkenlerin tiplerine göre alt ve üst 
sınırlarının dışına taştığında karşımıza çıkarlar. Program kimi zaman bir çıktı verirken, kimi 
zamanda hiç çıktı vermez yada hatalı çıktıya neden olurlar. Bu nedenle verilen hata mesajının 
ne olduğunun tam ve doğru olarak anlaşılması ve düzeltilmesi gereklidir. 


olarak, verilir. Bu mesajların “am” olarak ne anlama geldiğini bilmek için 
Derleyici Kullanım Kulavuzuna başvurunuz! 


m Sentaks/Çalıştırma hata mesajları, derleyiciden derleyiciye, genellikle İngilizce 
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9.8.3 TAMSAYI TAŞMASI (INTEGER OVERFLOMW) 


Tamsayı değerlerinin kullanım aralığının sınırlı olmasından daha önce bahsedilmişti. Örneğin, 
INTEGER veya INTEGER (KIND-A4) ile tanımlanan bir değişken (42-1) arasında değerler 
alabilir. Eğer programda kullanılan tamsayı, siz farkında olmadan üst sınırının dışına çıkarsa, 
tam sayının taşması (overflow) olarak nitelendirilen bir durum ortaya çıkar ve sonucu yanlış 
kılar. Programcı, hatanın farkında bile olmayabilir. En büyük tehlike büyük sayıların çok 
sayıda çarpılmasında ve tekrarlı toplama/çıkarma işlemlerinde karşımıza çıkar. 


ÖRNEK 1: Aşağıdaki işlemi programlayarak sonucunu irdeleyiniz? 


INTEGER :: M, K 
K-3*M 
PRINT*, 'M — ',M,' -',K 


K-3333333333 sayısı tamsayıların üst sınırı olan 2147483647'den daha büyük olması 
integer overflow hata mesajına neden olur. 


9.8.4 REAL OVERELOW/ UNDERF'LOM, VE SIFIRA BÖLME 


Bir matematiksel işlem sonucu müsaade edilen sınırların dışına taşarsa, bu sonuç değerini 
bellekte depolamak mümkün olmaz; genelde değişken değeri, tipine göre, en büyük sayısal 
değere atanır. Eğer sayı çok büyük ise overflow, çok küçük ise underflow olarak 
nitelendirilen bir durum arz eder. 


REAL :: A-1.0F6125, B-2.06130 
C—-AX*B 


olarak verilen programda C'nin değeri 2.0E*55 olup, müsaade edilen sınırın dışına 
taşmaktadır ve bu durumda işletim sistemi aracılığıyla ekrana bir hata mesajı yazılır. 


Bazı durumlarda, işlem sırasının yeri değiştirilerek overflow veya underflow 
durumundan kaçınılabilir. Buna örnek olarak da aşağıdaki programı ele alalım: 


REAL :: A-1.0E-30, B-2.06-20, C-3.0E130 
D—A*B 
E—D*C 


Burada A*B işleminde her iki sayı müsaade edilen sınırlar içinde olmasına rağmen çarpım sınır 
dışına taştığından underflow hatası ile karşılaşılır. Oysa işlemlerin yeri aşağıdaki gibi 
değiştirilerek program çalıştırılabilir bir hale getirilebilir. 


D—AXC 
E-D*B 


Çok küçük sayılara bölme işlemi yuvarlama hatalarına veya overflow hatasına sebep olabilir. 
Bu nedenle bölme işlemi yapılmadan önce bölenin sıfır veya underflow değerini alıp 
almadığının test edilmesinde fayda vardır. 


Bu tür testlerden yoksun bir program mantığı mantıksal bir hataya neden olur. 
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9.8.5 PROGRAMLAMA HATALARI 


Yukarıda bahsedilen hatalardan farklı olarak program çalışır ve sonuç üretebilir; fakat sonuçlar 
programlanan problemin çözümünden uzak olabilir veya en tehlikelisi de çözümün aranan 
çözüme yakın olmasıdır. Bu durumda programcının veya program sonuçlarını irdeleyen kişinin 
beklenen sonuç hakkında bir fikri olması gerekir veya modellenen fiziksel olaya uygunluğunu 
araştırmalıdır. Örneğin bir yayın uygulanan bir kuvvet ile hareketini veren diferansiyel 
denklemi verirken yayın sabitleştirildiği konumu 0 (sıfır) kabul edersek, yayın hareketi sıfır 
konumundan uzaklaşacak, biraz sonra sıfıra yaklaşacak ve bu hareket yavaş yavaş sönümlenen 
sinüzoidal bir davranış gösterecektir. Çözüm sinüzoidal harekete uymuyorsa (yani fiziksel 
olarak beklenen duruma aykırı ise) programda en az bir hata var demektir. 


Böyle durumlarda programcı her türlü bilgisini kullanarak bu hatayı bulmak zorundadır. 
Yukarıda bahsettiğimiz gibi, programcının veya algoritma hazırlayanın fiziksel problemi 
anlaması temel kriterdir. 


9.8.5.1 PROGRAMLAMA HATALARININ TESBİTİ 
Bütün bunlara rağmen hatayı bulmak için aşağıdaki denemeler yapılmalıdır: 


1. Program yazmaya başlamadan önce program tasarlamaya daha fazla zaman ayırın. Çoğu 
programcı bilgisayarın başına geçer geçmez istenen programı yazabileceğini sanır. Bu 
durum basit işlemlerden oluşan programların yazılmasında veya tecrübeli programcılar için 
geçerli olabilir. Oysa program yazmaya başladıktan kısa bir süre sonra herkes sıkıntı 
çekmeye başlar. 

2. Yazım aşamasında programınızı bir dizi blok veya modüllere ayırın. Örneğin, 

e Değişken Tanım Bloğu: Programdaki bütün değişkenler ve anlamları, ve mümkünse, 
birimleriyle beraber listesi. 

e Başlangıç Değeri Atama Bloğu: Bu blokta sabitlere değer atama ve girdi verileri 
okunur. 

e Hesaplama Bloğu: Algoritmanın esasını içeren hesaplama kısmıdır. 

e Başarı Yolu: Programın başarılı bir şekilde sona erdiğinde buraya ulaşır ve çıktı 
değerlerini yazar. 

e Başarısızlık Yolu: Program çalışma esnasında bir problem ile karşılaşıldığında buraya 
ulaşır ve problemi tanımlayan mesajlar ekrana yazılır. 

3. Programdaki her değişkeni, tipini (INTEGER, REAL, CHARACTER, v.s olarak) ve tipinin 
doğru tanımlayıp tanımlanmadığınızı kontrol ediniz. Bunu yapmanın en güzel yolu 
IMPLICIT NONE deyimini her programın başına yerleştirmektir. Böylece FORTRAN'ın 
otomatik tip belirleme kuralını kapatmış olursunuz, ve derleyici tip tanımlamasını 
unuttuğunuz her değişken için sizi uyarır. 

4. Programa girilen verilerin değerlerini girdi işleminden hemen sonra ekrana yazdırarak, 
sayısal değerin doğru girilip girilmediğini kontrol ediniz. 

5. Programı yazmaya başlamadan önce bir algoritma oluşturunuz veya akım şemasını çiziniz. 
Program başarı ile çalıştırıldıktan sonra detaylı bir akım şeması oluşturunuz. 

6. Modüler programlamaya özen gösteriniz; yani programı FUNCTION ve SUBROUTINE 
lere ayırınız. 

7. Alt programları tek tek test ediniz. Yani ikinci dereceden bir denklemin köklerini veren 
veya bir matrisin tersini bulan bir programı, kendiniz yazmış olabilir veya bir kitaptan veya 
bir arkadaşınızdan temin etmiş olabilirsiniz, bu durumda alt programı ana programdan 
ayırarak, bunları test ederek, gerekli işlevleri yerine getirip getirmediklerini kontrol ediniz. 


220 BÖLÜM 9. VERİMLİ PROGRAM YAZMA TEKNİKLERİ 


Hata alt programda ise, gerekli düzeltmeleri yapınız veya hatasız ve aynı işlevi gören test 
edilmiş bir başka alt program kullanınız. Alt program'ları sadece bir örnek ile değil, 
ekstrem durumlar arzeden birkaç örnek ile test ediniz. Mesela, ikinci dereceden denklemin 
köklerini veren bir programı, kökler gerçek, eşit ve gerçek ve kompleks olması durumuna 
karşılık gelecek katsayılar girerek kontrol etmek gerekir. 

8. Programlanan problemi en basit durum için çalıştırınız ve sonuçları irdeleyiniz. Bu işlem 
programınızın hatasız veya hatalı olduğunu göstermekten ziyade yapılmış bariz bir hatayı 
yakalamanıza yardımcı olabilir. 

9. Program girdi değerlerini kontrol edebilirsiniz. Bazen bir girdi değerinin yanlışlıkla 
tanımlanmaması bütün programlama dillerinde değişken gerçek sayı ise 0, alfa sayısal ise 
boş karakter anlamında olacağından program akışını etkileyebilir. Özetle girdi değerlerinin 
hepsinin tanımlanmış olup olmadığı kontrol edilmelidir. 

10. Programda fazladan çıktı deyimleri kullanarak bazı kritik program değişkenlerini ekrana 
veya kütüğe yazdırarak programın çalışması esnasındaki gelişimleri izlenerek, anormal 
değişimler varsa saptanabilir. Böylece işlem parametrelerin akışı takip edilebilir. Eğer arzu 
edilen çıktı sağlanamaz ise programın daha o satıra gelmeden saptığını ima eder. Bir döngü 
var ise acaba bu döngüyü neden yapmadı? Eğer bir blok işlemi N kez yapması gerekiyorsa, 
neden, mesela 6 kez, yaptı? Sayaç doğru olarak çalışıyor mu? gibi soruların ortaya çıkması 
ve yanıtlanması gerekebilir. Çıktı deyimlerinin ve parametrelerinin çok fazla sayıda 
kullanılması da şu bakımdan sakıncalı olabilir: fazla rakam arasında boğularak takibi 
zorlaşabilir. Özetle takip edilen değişkenlerin işlem akışı normal ise, bu değişkenlerden 
vazgeçip bu kez başka değişkenleri takibe almak daha doğru olur. 


9.8.5.2 TİPİK SENTAKS VE/VEYA PROGRAMLAMA HATALARI 
Tipik sentaks ve programlama hataları aşağıda gruplandırılmıştır: 


Karışık moda aritmetik ifadelerinin kullanımı, 

Hiçbir değerin atanmadığı değişken isminin kullanımı, 

Aritmetik ve mantıksal işlem hiyerarşisine dikkat edilmemesi, 

“Tırnak”, “virgül” veya “nokta” işaretlerinin eksikliği veya fazlalığı, 

Bir deyim etiketinin veya deyim/format numarasının birden fazla kullanımı, 

Etiket veya deyim numaralarının kullanılmaması veya unutulması, 

Eşleşmeyen parantez kullanımı (açılan parantezin kapatılmaması gibi), 

Bir INTEGER değişken veya sabitin bir REAL fonksiyonun argümanı olarak 

kullanılması, 

e Bir REAL değişken veya sabitin bir INTEGER fonksiyonun argümanı olarak 
kullanılması, 

e Bir sayıyı WAITE/FORMAT deyim çifti kullanarak yazdırmak için kullanılan belirtici 

genişliğinin sayıyı kapsamaya yeterli olması, 

Sayaç, indeks ve DO döngüsünde artırım miktarı olarak REAL kullanımı, 

Döngü içinde sayaç, indeks ve artırım miktarının değiştirilmeye kalkışılması, 

DO döngülerinin yanlış yuvalanması, 

İlk çalıştırılabilir deyimden önce tanımlamaların yapılmaması, 

DIMENSION deyimi ile tanımlanan indisin üst sınırının aşılması. 
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9,8.5.3 FORTRAN DEYİMLERİNİN SIRASI 


Fortran deyimleri program içinde rasgele bir düzende kullanılamaz. Temele olarak herhangi bir 
program veya alt programda kullanılan deyimler aşağıdaki sıralamayı takip etmelidir: 


1. 


2. 


3 
4. 


Program başlığı ilk satırdır (PROGRAM, FUNCTION veya SUBROUTINE). PROGRAM 
deyimi kullanılmayabilir ancak kullanılması tavsiye edilir. 

Tüm belirteç deyimlere yer verilmelidir. Ayrıca FORMAT deyimlerinin hepsini bir 
arada vermek programa açıklık kazandırmak bakımından yararlıdır. 

Programın algoritması gereği icra edilebilir deyimler algoritma sırasını takip etmelidir. 
Program veya alt program END ile sonlandırılmalıdır. 


Bir program veya alt programda kullanılabilecek deyimlerin genel yapısı aşağıda verilmiştir: 


PROGRAM, FUNCTION, SUBROUTINE, MODULE veya BLOCK DATA Deyimleri 


USE Deyimi 


FORMAT ve ENTRY 
Deyimleri PARAMETER Deyimi IMPLICIT Deyimleri 


IMPLICIT NONE 


Türetilmiş Tip Tanımlama, Interface 
blokları, Tip Belirtme deyimleri, 
İcra edilebilir deyimler 


CONTAINS Deyimi 


Dahili veya Modul prosedürler 


END 


(PROGRAM, FUNCTION, SUBROUTINE, MODULE veya BLOCK DATA) 


Deyim sıralamasındaki dikkatsizlikler hata mesajları ile sonuçlanır. 
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FORTRAN 90/95'İN İLERİ 
PROGRAMLAMA ÖZELLİKLERİ 


10.1 TÜRETİLMİŞ VERİ TİPİ TANIMLAMA 


Şimdiye kadar Fortran dilinin esas veri tiplerine (Real, Integer, Complex, Logical ve Character) 
değindik. Fortran bu veri tiplerine ilave olarak, kendi veri tiplerimizi oluşturmamıza olanak 
sağlar. Kullanıcı-tanımlı veri tipleri, esas veri tiplerinden yararlanarak istenilen sayıda ve 
kombinasyonda kullanılabilir. Kullanıcı-tanımlı veri tiplerine #üretilmiş veri tipi denir. 


Bir türetilmiş veri tipi, temel olarak, belirli bir unsur hakkındaki bilgilerin uygun bir şekilde bir 
araya getirilmesinden oluşur. Türetilmiş veri tipinin, aynı bir indisli değişken gibi, birden fazla 
bileşeni olabilir; ancak indisli değişken tek veri tipinde olmasına rağmen, türetilmiş veri 
bileşenlerinin tipleri farklılık gösterebilir. 


Bir türetilmiş veri tipi tanımlama işlemi, TYPE-END TYPE deyim gurubu içinde bileşenlerinin 
ve tiplerinin tanımlanması ile gerçekleştirilir. Genel kullanım şekli 


TYPE :: tip ismi 
Bileşenlerin tanımlanması 


END TYPE tip ismi 


olarak verilmektedir, ve kullanılan bileşen sayısında herhangi bir sınırlama yoktur. 


Türetilmiş veri tipleri kullanımına örnek olarak, öğrencilerin notlarının girildiği, hesaplandığı 
ve çıktılarının alınacağı bir program yazmayı düşünelim. Bu program için kişi hakkında 
bilmemiz gereken bazı bilgiler adı, soyadı, numarası, doğum tarihi, cinsiyeti vb olacaktır. Özel 
bir veri tipi, kisi, oluşturarak tüm bu verileri bir tip altında toplayabiliriz. Türetilmiş veri 
tipinin her unsuru yapı olarak isimlendirilir. 


TYPE kisi 
CHARACTER(LEN-14) :: ad ! 1.ci bileşen 
CHARACTER(LEN-10) :: soyad ! 2.ci bileşen 
CHARACTER(LEN-12) :: numara ! 3.cü bileşen 
INTEGER (KIND-I ) :: dogum tarihi ! 4.cü bileşen 
INTEGER :: yas l S.ci bileşen 
CHARACTER(LEN-1) :: cinsiyet ! 6.cı bileşen 


END TYPE kisi 


Türetilmiş veri tipi kisi oluşturulduktan sonra, bu tipteki değişkenler, esas tipteki değişkenler 
gibi, aşağıdaki şekilde tanımlanır: 
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TYPE(kisi) :: Ahmet, Fatma, Deniz 
TYPE(kisi), DIMENSION(200) :: Sınıf 9FenA, Sınıf 10EdC 


Türetilmiş verilerden oluşan sabitleri de tanımlamak mümkündür. Yapı oluşturma, tip ismini 
takiben, tanımlama bloğundaki sırayla bileşenlere değer atanmak suretiyle yapılır. 


Ahmet-kisi('Ahmet','Turk','1518200x1001',1989,20,'E') 
Ayse-kisi('Ayse','Gul','1518200x1002',1991,18,'K') 


Türetilmiş veri tipi bir başka türetimiş veri tipi içinde bileşen olarak da kullanılabilir. Örneğin, 
not programında not bilgisi isimli türetilmiş veri tipi içinde yukarıda tanımlanan kisi 
veri tipini kullanabiliriz. 


TYPE :: not bilgisi 


TYPE(kisi) :: ogrenci 

INTEGER :: Çuiz Sayisi 

REAL, DIMENSION(6):: Çuiz Notlari 
INTEGER :: Ara Sinav Sayisi 
REAL, DIMENSION(3):: Ara Sinav Notlari 
INTEGER :: Odev Sayisi 

REAL, DIMENSION(9):: Odev Notlari 

REAL :: Final Sinav Notu 
REAL :: NOT Ortalama 


END TYPE not bilgisi 


Tip tanımlamada, örneğin, aşağıdaki şekilde kullanabiliriz: 


TYPE(not bilgisi) , DIMENSION(90) :: SINIF 1, SINIF 2 


10.2 TÜRETİLMİŞ VERİ TİPLERİNİN KULLANIMI 


Türetilmiş veri tipi değişkenlerinin bileşenlerine diğer bileşenlerden bağımsız olarak erişilebilir 
ve aynı tipteki başka değişkenler gibi kullanılabilir. Tip bileşeni, bileşen seçici ($ işareti) ile 
kullanılır. Türetilmiş veri ismini takiben © işareti ve bunu da takiben bileşen ismi yazılır. 
Örneğin, 


Ahmet3adi-'Ahmet' 
Ahmet3$numaraz'1518200x1001' 
SINIF 1$5NOT Ortalama-67 
SINIF 2(51) 30dev sayisi-7/ 


ÖRNEK 1: A( xp, yp. 2p ) ile B(&x,, yı, 2, ) noktaları arasındaki uzaklığı veren türetilmiş veri tipi 
kullanımını içeren bir program yazalım. AB noktaları arasındaki uzaklık 

dyo -x0 401-0 Kl 20) 

bağıntısıyla verilmektedir. 
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Kartezyen koordinat sistemindeki bir nokta (x,y,z) üçlüsü ile belirlendiğine göre, bir noktanın 
konumunu türetilmiş veri tipi olarak tanımlayabiliriz. 


PROGRAM Ornekl 
IMPLICIT NONE 


TYPE konum ! Konum isimli veri tipi oluşturma 
REAL :: X ! İ.ci bileşen 
REAL :: Y ı 2.ci bileşen 
REAL :: Z ! 3.cü bileşen 


END TYPE konum 

| 
TYPE (konum):: a,b ! a ve b değişkenlerini konum tipinde tanımlama 
REAL :: uzaklik 

| 

a > konum(3.,-2., 4.) 

b —- konum(1., 4.,-3.) 

PRINT 25, a 

PRINT 25, b 

uzaklik-SORT( (a5x—b5x) **21(a35y—b53y) **21(a5z-b52) **2) 
PRINT #, ' ' 

PRINT 25, uzaklık 

25 FORMAT(3x,3(f7.3,2X)) 

END PROGRAM Ornekl 


a ve b değişkenleri konum tipinde tanımlandıktan sonra, a ve b'nin bileşenleri uzaklık 
bağıntısında $x, $y ve $z ekleri kullanılarak yazılırlar. Programının çıktısı 


3.000 -2.000 4.000 
1.000 4.000 -3.000 
9.434 


olarak elde edilir. 


ÖRNEK 2: Türetilmiş veri tipi olarak tanımlanan karmaşık sayılarla toplama ve çarpma işlemi 
yapan bir program yazınız. 


Esasen karmaşık sayılarla işlem yapmak için bu tarz bir program yazmamıza gerek yoktur 
çünkü COMPLEX olarak tanımlanan karmaşık sayılarla aritmetik işlem operatörlerini kolaylıkla 
kullanabiliriz. Türetilmiş veri tipi tanımlama ve kullanmayı açıklamak için bir karmaşık sayıyı 
sanal - x $ İi y şeklinde tanımlarız. 


PROGRAM Ornek?2 
IMPLICIT NONE 
TYPE sanal !I sanal - x * iy olarakTiptanımı 
REAL :: X 
REAL :: Y 
END TYPE sanal 
TYPE (sanal):: z1,z2,23,z4 ! sanal değişkenler olarak tanımlanıyor 
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z1 sanal(3.,-2.) ı z1 23 - 2i 

z2 - sanal(1., 4.) I zZ2 2 1 * 4 i sabitleri tanımlandı 
! z32z211t32 işlemi 

Z35X>7153X1225X 

z35y-215y1225y 

! z4zz1*z22 işlemi 

z45x-715x*725x-715y*225y 

z45y-7153x*225y1215y*2725Xx 

! Bu programda 2321172 veya Z4-z71*22 şeklinde kullanamayız! 
PRINT 25, z1 

PRINT 25, 22 


PRINT #*, ' ZI $ 22 ' 
PRINT 25, 233 
PRINT #*, ' ZI * 22 * 


PRINT 25, 24 
25 FORMAT(3x,3(£5.1,2x)) 
END PROGRAM Ornek2 


Programının çıktısı 


3.0 -2.0 
1.0 4.0 
zI $ z2 
4.0 2.0 
zı * z2 


11.0 10.0 


ÖRNEK 3: Kişisel (ad, soyad, numara, doğum tarihi, yaş ve cinsiyeti) bilgilerinin türetilmiş 
veri tipi kisi olarak tanımlandığı ve kullanıldığı bir program ele alalım. 


PROGRAM Ornek3 
IMPLICIT NONE 


TYPE kisi ! Türetilmiş tip tanım bloğu 
CHARACTER(LEN-14) :: ad 
CHARACTER(LEN-10) :: soyad 
CHARACTER(LEN-12) :: numara 
INTEGER :: dogum tarihi 
INTEGER :: yas 
CHARACTER (LEN-1 ) :: cinsiyet 

END TYPE kisi 

TYPE (kisi) :: Ahmet ! Türetilmiş tipteki değişken tanımı 


! Değer atama 

ahmet - kisi('Ahmet','Türk','1518200x1001',1989,21,'E') 
WRITE(*,*) 'Serbest format: ',Ahmet ! Serbestformatta çıktı alma 
WRITE(*,10) Ahmet ! Formatlı çıktı alma 

10 FORMAT('Formatlıçıktı:',/,3(1X,A,/),1X,i5,/,1x,i4,1x,A) 
END PROGRAM Ornek3 
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Programının çıktısı 


Serbest format: Ahmet Türk 1518200x1001 1989 21 E 
Formatlı çıktı: 
Ahmet 
Türk 
1518200x1001 
1989 
21 E 


Girdi-çıktı deyimlerinde türetilmiş veri bileşenlerinin tiplerine uygun format deyimleri 
kullanılmalıdır. 


10.3 JENERİK ALT PROGRAMLAR 


FORTRAN 90/95 programlama dili hem arşiv hem de jenerik fonksiyonlar içerir. Jenerik 
fonksiyon, farklı tipteki veri girdileriyle çalışabilen programlardır. Örneğin, mutlak değer 
fonksiyonu olan ABS ( ) , tamsayılar için TABS () , çift hassasiyetli gerçek sayılar için DABS (), 
karmaşık sayılar CABS () vb isimlerini alır. ABS () fonksiyonunu herhangi bir veri tipi için 
kullanabiliriz çünkü Fortran derleyicisi girdi tipine bakarak tam sayı ise TABS, çift hassasiyetli 
gerçek sayı ise DABS vs programlarını kullanır. 


10.3.1 KULLANICI-TANIMLI JENERİK ALT PROGRAMLAR 


FORTRAN 90/95 ve 2003'de kullanıcının kendi jenerik alt programlarını oluşturmasına olanak 
sağlanır. Örneğin sıralama işlemi yapan bir alt program oluşturmak istersek, “bu sıralamayı 
hangi veri tipi için yapmalıyız?” sorusunun cevabı: Integer, Real, Rea1*8, Character 
tipleri olabilir. Böylece dört veri türüne göre sıralama yapan alt programlar hazırlayabiliriz. Bu 
işlemi özel bir arayüz bloğu oluşturarak uygulayabiliriz. Genel kullanım şekli 


INTERFACE jenerik isim 
Özel arayüz 1 
Özel arayüz 2 


END INTERFACE 


olarak verilmektedir. Böylece derleyici jenerik alt program ile karşılaştığında, alt programın 
arayüzünde tanımlı girdi tipleri ile karşılaştırma yapar ve girdisi uygun olan programı kullanır. 
Jenerik alt programların kullanımında aşağıdaki kurallara dikkat edilmelidir: 


1. Jenerik arayüz bloğunda tanımlanan alt programların tamamı ya FUNCTION ya da 
SUBROUTINE olmalıdır. Alt program türleri karışımı kabul edilmez. 


2. Her alt program, diğer alt programlardan blok tipi, sayısı, konumu, opsiyonel 
argümanların olup olmaması ile ayırt edilmelidir. Böylece derleyici hangi programı 
kullanacağında bir karmaşa yaşamaz. 
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Örneğin, bir programcı aşağıda verilen, büyükten küçüğe doğru sıralama yapan, dört program 
yazmış olsun. 


Alt Program İşlevi 

SUBROUTINE SIRALAT (deger,indisli) Tamsayı verileri sıralamak 

SUBROUTINE SIRALAG(deger,indisli) Tek o hassasiyetli (o gerçek (o verileri 
sıralamak 

SUBROUTINE SIRALAC (deger,indisli) Çift (o hassasiyetli (o gerçek (o verileri 
sıralamak 

SUBROUTINE SIRALAA (deger,indisli) Alfa sayısal verileri sıralamak 


Şimdi SIRALA isimli bir jenerik SUBROUTINE alt programı oluşturmak isteyelim. Bu işlem 
aşağıda verilen INTERFACE arayüz bloğu ile gerçekleştirilebilir. 


INTERFACE SIRALA 


SUBROUTINE SIRALAT (deger, indisli) 
IMPLICIT NONE 
INTEGER, INTENT(IN) :: deger 
INTEGER, INTENT(INOUT) :: indisli 
END SUBROUTINE SIRALAT 
SUBROUTINE SIRALAG (deger,indisli) 
IMPLICIT NONE 
INTEGER, INTENT(IN) :: deger 
REAL, INTENT(INOUT) :: indisli 
END SUBROUTINE SIRALAG 
SUBROUTINE SIRALAC (deger, indisli) 
IMPLICIT NONE 
INTEGER, INTENT(IN) :: deger 
REAL*8, INTENT(INOUT) :: indisli 
END SUBROUTINE SIRALAC 
SUBROUTINE SIRALAMA (deger, indisli) 
IMPLICIT NONE 
INTEGER, INTENT(IN) :: deger 
CHARACTER(LEN—*), INTENT(INOUT) :: indisli 
END SUBROUTINE SIRALAA 


END INTERFACE SIRALA 


Bu şekilde tanımlanan jenerik alt programlar, programda CALL SIRALA(..) ile 
karşılaşıldığında, derleyici indisli değişkeninin tipine göre uygun alt programı seçer ve 
kullanır. 


10.3.2 MODÜLLERDE ALT PROGRAMLAR İÇİN JENERİK ARAYÜZ KULLANIMI 


Önceki örnekte, her alt program için tanımlarla beraber açık arayüz verilmişti. Arayüzde yer 
alan her alt program ayrı ayrı derlenmiş olursa ve tanımlama blokları yer almaz ise, bu şekildeki 
kullanımın pek yararı olmaz. Ancak her alt program bir modül içinde yer aldığında ve açık 
arayüzleri mevcut olursa, durum farklı olur. Dolayısıyla bu problemin üstesinden gelmek için 
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Fortran diline MODULE PROCEDURE deyimi ilave edilmiştir. Genel kullanım şekli 


MODULE PROCEDURE modül altprograml (,modül altprogram?,..) 


olarak verilir ve birden fazla modül alt programları peş peşe sıralanabilir. Bu alt programlara 
USE deyimi ile ilgili alt veya ana programdan erişilebilir. 


Sıralama işlemini yapan jenerik alt program modül alt program olarak tanımlansaydı, aşağıdaki 
şekilde verilmesi gerekirdi. 


INTERFACE SIRALA 
MODULE PROCEDURE SIRALAT 
MODULE PROCEDURE SIRALAG 
MODULE PROCEDURE SIRALAC 
MODULE PROCEDURE SIRALAA 
END INTERFACE SIRALA 


ÖRNEK 4: Tamsayı, gerçek sayı, çift hassasiyetli gerçek, karmaşık veya karmaşık çift 
hassasiyetli sayılardan oluşabilen indisli bir değişkenin en büyük değerini ve opsiyonel olarak 
konumunu veren bir En Buyuk isimli bir SUBROUTINE alt programı yazınız. (Karmaşık 
sayılarda mutlak değerce en büyük olan sayı araştırılacaktır!) 


Aşağıda MODULE içinde modül alt programların tanımlamaları ve programlar verilmektedir. 


MODULE jenerik En Buyuk 

IMPLICIT NONE 

! Her alt programda kullanılan sabitlerin tanımlanması 
INTEGER, PARAMETER :: tek -— SELECTED REAL KIND(p-6) 
INTEGER, PARAMETER :: cift - SELECTED REAL KIND(p-13) 

! Modül prosedür olarak tanımlanması 


INTERFACE En Buyuk 
MODULE PROCEDURE En Buyuk i ! Tamsayılar için 
MODULE PROCEDURE En Buyuk r ! Gerçek sayılar için 
MODULE PROCEDURE En Buyuk d ! Çift hassasiyetli sayılar için 
MODULE PROCEDURE En Buyuk c ! Karmaşık sayılar için 
MODULE PROCEDURE En Buyuk dc ! Çift hassasiyetli karmaşık sayılar için 


END INTERFACE 
| ###ek#kek Jenerik Alt programların verilmesi #98 #etere esekle erkek 


CONTAINS 


SUBROUTINE En Buyuk i ( indisli, deger, BuyukDeger, Konum ) 
! TAMSAYILAR İÇİNDE EN BÜYÜK DEĞER VE KONUMUNU VEREN ALT PROGRAM 
Değişken Listesi ve Tanımları 


Deger 


BuyukDeger 
Konum 


ı 
! 
! Indisli (Deger) 
ı 
ı 
ı 


IMPLICIT NONE 


: indisli değişkenin boyutu 

: Deger boyutunda indisli değişken 
: En büyük değer 
: En büyük değerin konumu 


BÖLÜM 10. İLERİ PROGRAMLAMA ÖZELLİKLERİ 229 


INTEGER, INTENT(IN) :: deger 

INTEGER, INTENT(IN), DIMENSION (deger) :: indisli 
INTEGER, INTENT(OUT) :: BuyukDeger 

INTEGER, INTENT(OUT), OPTIONAL :: Konum 

INTEGER :: i 

INTEGER :: max konum 

BuyukDeger - indisli(1) 

max konum — 1 


DO i - 2, deger 
IF ( indisli(i) > BuyukDeger ) THEN 
BuyukDeger - indislif(i) 
max konum > i 
END IF 
END DO 
IF ( PRESENT(Konum) ) THEN 
Konum > max konum 
END IF 
END SUBROUTINE En Buyuk i 


SUBROUTINE En Buyuk r ( indisli, deger, BuyukDeger, Konum ) 
!I GERÇEK SAYILAR İÇİNDE EN BÜYÜK DEĞER VE KONUMUNU VEREN 
! ALT PROGRAM 


IMPLICIT NONE 

INTEGER, INTENT(IN) :: deger 

REAL (KIND-tek), INTENT(IN), DIMENSION(deger) :: indisli 
REAL (KIND-tek), INTENT(OUT) :: BuyukDeger 

INTEGER, INTENT(OUT), OPTIONAL :: Konum 

INTEGER :: i 

INTEGER :: max konum 

BuyukDeger - indisli(1) 

max konum — 1 


DO i - 2, deger 
IF ( indisli(i) > BuyukDeger ) THEN 
BuyukDeger - indislif(i) 
max konum <> i 
END IF 
END DO 
IF ( PRESENT(Konum) ) THEN 
Konum > max konum 
END IF 
END SUBROUTINE En Buyuk r 


SUBROUTINE En Buyuk d ( indisli, deger, BuyukDeger, Konum ) 
! ÇİFT HASSASİYETLİ GERÇEK SAYILAR İÇİNDE EN BÜYÜK DEĞER 
! VE KONUMUNU VEREN ALI PROGRAM 


IMPLICIT NONE 

INTEGER, INTENT(IN) :: deger 

REAL (KIND-cift), INTENT(IN), DIMENSION (deger) :: indisli 
REAL (KIND-cift), INTENT(OUT) :: BuyukDeger 

INTEGER, INTENT(OUT), OPTIONAL :: Konum 

INTEGER :: i 

INTEGER :: max konum 

BuyukDeger - indisli(1) 

max konum — 1 


DO i - 2, deger 
IF ( indisli(i) > BuyukDeger ) THEN 
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BuyukDeger - indislif(i) 
max konum > i 
END IF 
END DO 
IF ( PRESENT(Konum) ) THEN 
Konum > max konum 
END IF 
END SUBROUTINE En Buyuk d 


SUBROUTINE En Buyuk c ( indisli, deger, BuyukDeger, Konum ) 
! KARMAŞIK SAYILAR İÇİNDE EN BÜYÜK DEĞER VE KONUMUNU VEREN 
! ALT PROGRAM 


IMPLICIT NONE 

INTEGER, INTENT(IN) :: deger 

COMPLEX(KIND-tek), INTENT(IN), DIMENSTION (deger) :: indisli 
REAL (KIND-tek), INTENT(OUT) :: BuyukDeger 

INTEGER, INTENT(OUT), OPTIONAL :: Konum 

INTEGER :: i 

INTEGER :: max konum 

BuyukDeger - ABS(indisli(1)) 

max konum — 1 


DO i - 2, deger 
IF ( ABS(indisli(i)) > BuyukbDeger ) THEN 
BuyukDeger - ABS(indislif(i)) 
max konum <> i 
END IF 
END DO 
IF ( PRESENT(Konum) ) THEN 
Konum > max konum 
END IF 
END SUBROUTINE En Buyuk c 


SUBROUTINE En Buyuk dc ( indisli, deger, BuyukDeger, Konum ) 
! KARMAŞIK (çift hassasiyetli) SAYILAR İÇİNDE EN BÜYÜK DEĞER 
! VE KONUMUNU VEREN ALT PROGRAM 


IMPLICIT NONE 

INTEGER, INTENT(IN) :: deger 

COMPLEX(KIND->cift), INTENT(IN), DIMENSTION (deger) :: indisli 
REAL (KIND-cift), INTENT(OUT) :: BuyukDeger 

INTEGER, INTENT(OUT), OPTIONAL :: Konum 

INTEGER :: i 

INTEGER :: max konum 

BuyukDeger - ABS(indisli(1)) 

max konum — 1 


DO i - 2, deger 
IF ( ABS(indisli(i)) > BuyukbDeger ) THEN 
BuyukDeger - ABS(indislif(i)) 
max konum <> i 
END IF 
END DO 
IF ( PRESENT(Konum) ) THEN 
Konum > max konum 
END IF 
END SUBROUTINE En Buyuk dc 


END MODULE jenerik En Buyuk 
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PROGRAM Ornek4 
! Test için kullanılan ana program 
USE jenerik En Buyuk |! Ana programdan modüle erişim 


IMPLICIT NONE 

INTEGER, DIMENSION(6) :: indisli i 

! İndisli değişken tanımlamaları 

REAL (KIND—tek ), DIMENSION(6) :: indisli r 
REAL (KIND—cift), DIMENSION(6) :: indisli d 
COMPLEX (KINDztek ), DIMENSION(6) :: indisli c 
COMPLEX (KIND>cift), DIMENSION(6) :: indisli dc 
INTEGER :: EnBuyuk Deger i 

REAL(KIND-tek ) :: EnBuyuk Deger r 

REAL (KIND-cift) :: EnBuyuk Deger d 

INTEGER :: Konum EnBuyuk 


! Değişkenlere değer atama 
indisli i -(/ -21, 13, 42, 0, 55, -29 /) 
indisli r -(/ -23.,33.,82.,59., 95., -32./) 
indisli ds(/ -13. cift, 3. gift, 2. cift, O. citt, 25. cift; -2. gift 
/) 
indisli 6-(/ (3.;2.), (<4.,-5.), (35,9); (15,6); & 
(5.;11.); (8.,-4.) 7) 
indisli dezx(/ (1. cift,3. cift), (-2. cift,-4. cift), & 
(4. cift,l1. cift), (-4. cift,5. cift), & 
(6. citt;,-3. cift), (2. cift,-5. cift) /) 
CALL En Buyuk(indisli i, 6, EnBuyuk Deger i, Konum EnBuyuk ) 
WRITE (*,10) EnBuyuk Deger i, Konum EnBuyuk 
CALL En Buyuk (indisli r, 6, EnBuyuk Deger r ) 
WRITE (*,20) EnBuyuk Deger r 
CALL En Buyuk (INDISLI-indisli d,DEGER-6, BUYUKDEGER-EnBuyuk Deger di) 
WRITE (*,30) EnBuyuk Deger d 
CALL En Buyuk (DEGER-6, INDISLI—indisli c, BUYUKDEGER-EnBuyuk Deger r, & 
KONUM-Konum EnBuyuk ) 
WRITE (*,40) EnBuyuk Deger r, Konum EnBuyuk 
CALL En Buyuk (indisli dc, 6, EnBuyuk Deger di) 
WRITE (*,50) EnBuyuk Deger d 


10 FORMAT(' Tamsayı girdiler: '/,' En Büyük Değer — ',1I3, & 
'; Konumu — ', 13 ) 

20 FORMAT(' Tek Hassasiyetli Gerçek Sayılı Girdiler : '/, & 
' En Büyük Değer - ',F7.3) 

30 FORMAT(' Çift Hassasiyetli Gerçek Sayılı Girdiler : '/, & 
' En Büyük Değer — ',F7.3) 

40 FORMAT(' Tek Hassasiyetli karmaşık sayılı Girdiler '/, & 
' En Büyük Değer - ',F7.3,'; konumu — ', 13 ) 

50 FORMAT(' Çift Hassasiyetli karmaşık sayılı Girdiler '/, & 
' En Büyük Değer —- ',F7.3) 


END PROGRAM Ornek4 
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Programının çıktısı 


Tamsayı girdiler: 


En Büyük Değer - 55; Konumu - 5 

Tek Hassasiyetli Gerçek Sayılı Girdiler : 
En Büyük Değer - 95.000 

Çift Hassasiyetli Gerçek Sayılı Girdiler : 
En Büyük Değer - 25.000 

Tek Hassasiyetli karmaşık sayılı Girdiler 
En Büyük Değer - 12.083; konumu - 5 
Çift Hassasiyetli karmaşık sayılı Girdiler 
En Büyük Değer - 10.296 


10.3.3 KULLANICI-TANIMLI İŞLEM OPERATÖRLERİ VE ATAMALAR 


Türetilmiş veri tipleri ile yapılan işlemlerde aritmetik ve mantıksal işlem operatörleri 
kullanılamaz. Örneğin, türetilmiş veri tipi olarak tanımlanan iki karmaşık sayıyı toplama, 
çıkarma, çarpma işlemlerini 271122, Z1*Z22 vb şeklinde yapamayız; işlemlerin her bir 
kademesini ayrıntılı olarak belirtmemiz ve programlamamız gerekir. Ancak Fortran arşiv 
programları COMPLEX tanımlaması ile karmaşık sayılarla aritmetik işlem yapmaya olanak 
sağlar. 


Kullanıcı-tanımlı türetilmiş veri tiplerini aritmetik veya mantıksal işlem operatörleri ile 
kullanmak istersek arayüz operatörleri tanımlamamız gerekir. Bu amaçla kullanılan arayüz 
operatör bloğu genel şekli 


INTERFACE OPERATOR (operatör sembolü) 
MODULE PROCEDURE fonksiyon 1 


END INTERFACE 


olarak verilmektedir. 


Operatör sembolü standart (*,—,/,*,>,<, vs) olabileceği gibi kullanıcı-tanımlı başka 
operatörler de olabilir. Kullanıcı-tanımlı operatör ismi nokta işaretleri arasında 31 karakter 
uzunluğunda isim alabilir ve “ ” işareti ile rakamlar kullanılamaz! 

Fortran aritmetik işlem operatörleri kullanılıyorsa, dikkat edilmesi gereken noktalar şunlardır: 


1. İşlem operatörünün anlamını değiştirilemez. Örneğin, “* toplama operatörü çıkarma 
işlemi veya bölme işlemi amacıyla kullanılamaz. 

2. Bir işlevi görmek için gerekli argüman sayısı operatörün normal kullanımındaki 
argüman sayısıyla eş olmalıdır. Örneğin, “*” operatörü işlemi için iki değişken gerekir. 

3. İlişkisel bir operatör kullanıldığında, anlamı değiştirilemez. “<> küçük sembolü anlamı 
aynıdır. 


ÖRNEK 5: Boyutu 3 olan indisli değişkeni vektöre, vektörü indisli değişkene dönüştüren, 
vektörler arasında aritmetik işlemler (toplama, çıkarma, sabit ile çarpma, sabite bölme), skalar 
ve vektörel çarpım işlemlerini yapan kullanıcı-tanımlı operatörler hazırlayınız. 
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Bu programı oluşturmak için aşağıdaki tabloda verilen alt programları oluşturacağız: 


Alt Program Girdi(ler) ve Tipi oÇıktı(lar) ve Tipi Alt program tipi 
indisliden vektore Gerçek 3 elemanlı Vektör 

indisli değişken 
vektorden indisliye Vektör Gerçek 3 elemanlı 

indisli değişken 

vektor topla Vektör Vektör Vektör 
vektor cikarma Vektör Vektör Vektör 
vektor carpi reelS Vektör Gerçek sayı Vektör 
reelS carpi vektor Gerçek sayı Vektör Vektör 
vektor carpi tamsayi Vektör Tamsayı Vektör 
tamsayi carpi vektor Tamsayı Vektör Vektör 
vektorel carpim Vektör Vektör Vektör 
vektor bolu reel Vektör Gerçek sayı Vektör 
vektor bolu tamsayi Oo Vektör Tamsayı Vektör 
skalar carpim Vektör Vektör Gerçek sayı 


Kullanılan değişken ve/veya sabitler 


Vektor 1, Vektor 2 : Vektörler 
İndisli : İndisli değişken(/indisli (3)| 
Gercek 1, Gercek 2 : Tek hassasiyetli gerçek sayı sabitleri 


Tamsayi 1, Tamsayi 2: Tamsayı sabitleri 


Programda normalde kabul edilmeyen vektörlerle gerçek ve tamsayıların çarpılması, 
bölünmesi, skalar ve vektörel çarpım normal aritmetik işlemler ile kullanılabilir hale 
getirilmektedir. 


MODULE vektorler 


! İşlem Operatör 
I ————— ———————— 
.. Gerçek indisli değişkenden vektör oluşturma — 
! 2 Vektördem indisli değişken oluşturma - 
! 3. Vektör toplama işlemi * 
!I 4. Vektör çıkarma işlemi — 
5 Vektör-skalar sabit çarpımı bi 
l 6 Vektör-skalar sabit bölümü / 
! 7. Skalar çarpım .SCALAR. 
I 8. Vektörel çarpım ii 


IMPLICIT NONE 
TYPE :: vektor 


REAL :: Xx 
REAL :: y 
REAL :: z 
END TYPE 
INTERFACE ASSIGNMENT (>) !I Eşitlik, denklik operatörü 


MODULE PROCEDURE indisliden vektore 
MODULE PROCEDURE vektorden indisliye 
END INTERFACE 
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INTERFACE OPERATOR (*t) ! İki vektör toplamı 
MODULE PROCEDURE vektor topla 
END INTERFACE 


INTERFACE OPERATOR (-) ! İki vektör farkı 
MODULE PROCEDURE vektor cikarma 
END INTERFACE 


INTERFACE OPERATOR (*) I Vektör skalar sabit çarpımları 
MODULE PROCEDURE vektor carpi reelS 
MODULE PROCEDURE reelS carpi vektor 
MODULE PROCEDURE vektor carpi tamsayi 
MODULE PROCEDURE tamsayi carpi vektor 
MODULE PROCEDURE vektorel carpim 
END INTERFACE 


INTERFACE OPERATOR (/) ! Vektör skalar sabit bölme işlemleri 
MODULE PROCEDURE vektor bolu reel 
MODULE PROCEDURE vektor bolu tamsayi 

END INTERFACE 


INTERFACE OPERATOR ( .SKALAR. ) ! İki vektörün skalar çarpımı 
MODULE PROCEDURE skalar carpim 
END INTERFACE 


CONTAINS 

SUBROUTINE indisliden vektore(vektor sonuc, indisli) 
TYPE (vektor), INTENT(OUT) :: vektor sonuc 
REAL, DIMENSION(3), INTENT(IN) :: indisli 
vektor sonuc$x-indisli(1) 
vektor sonuc3y-indisli (2) 
vektor sonuc$z-indisli (3) 

END SUBROUTINE indisliden vektore 


SUBROUTINE vektorden indisliye(indisli result, vektor 1) 
REAL, DIMENSION(3), INTENT(OUT) :: indisli result 
TYPE (vektor), INTENT(IN) :: vektor 1 
indisli result(1) >vektor 153x 
indisli result (2) -vektor 13y 
indisli result (3) >vektor 1532 

END SUBROUTINE vektorden indisliye 


FUNCTION vektor topla(vektor 1, vektor 2) 
TYPE (vektor) :: vektor topla 
TYPE (vektor), INTENT(IN) :: vektor 1, vektor 2 
vektor topla3x-vektor 13xtvektor 2$5Xx 
vektor toplağy-vektor l135ytvektor 25y 
vektor topla3z-vektor 1$3ztvektor 2$z2 
END FUNCTION vektor topla 


FUNCTION vektor cikarma(vektor 1, vektor 2) 
TYPE (vektor) :: vektor cikarma 
TYPE (vektor), INTENT(IN) :: vektor 1, vektor 2 
vektor cikarma3x-vektor 1535x—-vektor 25x 
vektor cikarmağy-vektor 15y-—vektor 25y 
vektor cikarma3z-vektor 153z—vektor 252 


BÖLÜM 10. İLERİ PROGRAMLAMA ÖZELLİKLERİ 235 


END FUNCTION vektor cikarma 


FUNCTION vektor carpi reelS(vektor 1, Gercek 2) 


TYPE (vektor) :: vektor carpi reelS 
TYPE (vektor), INTENT(IN) :: vektor 1 
REAL, INTENT(IN) :: Gercek 2 


vektor carpi reelS3x-vektor 15x*Gercek 2 

vektor carpi reelS3y-vektor 15y*Gercek 2 

vektor carpi reelS3z-vektor 15z*Gercek 2 
END FUNCTION vektor carpi reelS 


FUNCTION reels carpi vektor (Gercek 1, vektor 2) 


TYPE (vektor) :: reelS carpi vektor 
REAL, INTENT(IN) :: Gercek 1 
TYPE (vektor), INTENT(IN) :: vektor 2 


reelS carpi vektor$x-Gercek 1*vektor 25x 

reels carpi vektor$y-Gercek 1*vektor 25y 

reelS carpi vektor$z-Gercek l1*vektor 25$z2 
END FUNCTION reelSs carpi vektor 


FUNCTION vektor carpi tamsayi(vektor 1, Tamsayi 2) 


TYPE (vektor) :: vektor carpi tamsayi 
TYPE (vektor), INTENT(IN) :: vektor 1 
INTEGER, INTENT(IN) :: Tamsayi 2 


vektor carpi tamsayiSx-vektor 15x*REAL(Tamsayi 2) 

vektor carpi tamsayisy-vektor 1$y*REAL(Tamsayi 2) 

vektor carpi tamsayiSz-vektor 15z*REAL(Tamsayi 2) 
END FUNCTION vektor carpi tamsayi 


FUNCTION tamsayi carpi vektor (Tamsayi 1, vektor 2) 


TYPE (vektor) :: tamsayi carpi vektor 
INTEGER, INTENT(IN) :: Tamsayi 1 
TYPE (vektor), INTENT(IN) :: vektor 2 


tamsayi carpi vektor$x-REAL(Tamsayi 1) *vektor 253x 

tamsayi carpi vektorSy-REAL(Tamsayi 1) *vektor 25y 

tamsayi carpi vektor$3z-REAL(Tamsayi 1) *vektor 25) 
END FUNCTION tamsayi carpi vektor 


FUNCTION vektor bolu reel(vektor 1, Gercek 2) 


TYPE (vektor) :: vektor bolu reel 
TYPE (vektor), INTENT(IN) :: vektor 1 
REAL, INTENT(IN) :: Gercek 2 


vektor bolu reel3x—vektor 13x/Gercek 2 

vektor bolu reel3y-vektor 13y/Gercek 2 

vektor bolu reel3z—vektor 13z2/Gercek 2 
END FUNCTION vektor bolu reel 


FUNCTION vektor bolu tamsayi(vektor 1, Tamsayi 2) 


TYPE (vektor) :: vektor bolu tamsayi 
TYPE (vektor), INTENT(IN) :: vektor 1 
INTEGER, INTENT(IN) :: Tamsayi 2 


vektor bolu tamsayi3x-vektor 13x/REAL(Tamsayi, 2) 

vektor bolu tamsayi3$y-vektor 13y/REAL(Tamsayi, 2) 

vektor bolu tamsayi3z-vektor 135z/REAL(Tamsayi, 2) 
END FUNCTION vektor bolu tamsayi 
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FUNCTION skalar carpim(vektor 1, vektor 2) 
REAL :: skalar carpim 
TYPE (vektor), INTENT(IN) :: vektor 1, vektor 2 
skalar carpim - vektor 1535x*vektor 235x 1 & 
vektor 1$y*vektor 25y1tvektor 135z*vektor 25) 
END FUNCTION skalar carpim 


FUNCTION vektorel carpim(vektor 1, vektor 2) 
TYPE (vektor) :: vektorel carpim 
TYPE (vektor), INTENT(IN) :: vektor 1, vektor 2 
vektorel carpim$x-vektor 1$y*vektor 25z—vektor 135z*vektor 2$5y 
vektorel carpim3ây-vektor 1$z*vektor 25x-vektor 135x*vektor 25) 
vektorel carpim$Sz-vektor 1$5x*vektor 25y—vektor 13y*vektor 2$5Xx 

END FUNCTION vektorel carpim 

END MODULE vektorler 


PROGRAM Ornek5 

USE vektorler ! Vektorler atama ve operator programlarının çağırılması 
IMPLICIT NONE 

REAL, DIMENSION(3) :: indisli cikti 

TYPE (vektor) :: vektor 1, vektor 2 

vektor 1 2 (7 1s 25, Bu 7) 

indisli cikti — vektor 1 


WRITE (*,10) vektor 1, indisli cikti 
vektor 1 - (/ 10., 20., 30. /) 
vektor 2 s (7 1. 25, 3. 7) 
WRITE (*,20) vektor 1,vektor 2,vektor 1tvektor 2,vektor 1-vektor 2 
vektor 1 (7 İş 2.5, 3x 7) 
WRITE (*,30) vektor 1,2.*vektor 1, vektor 1*2.,2*vektor 1,vektor 1*2 
vektor 1 - (/ 10., 20., 30. /) 
WRITE (*,40) vektor 1,vektor 1/5.,vektor 1/5 
vektor 1 8 (7 Tuş Ziy 3x 7) 
vektor 2 8 (7 Tiç; 2., 3. 7) 
WRITE (*,50) vektor 1,vektor 2,vektor 1.SKALAR.vektor 2 
vektor 1 - (/ 1., -1., 1. /) 
vektor 2 s (7 “iş 1., A. 7) 
WRITE (*, 60) vektor 1, vektor 2, vektor 1*vektor 2 
10 FORMAT (' Atama işlemleri ',/, & 
' Vektör 1 - ', 3F8.2,/,' İndisli — ', 3F8.2) 
20 FORMAT (/' Toplama ve Çıkarma İşlemleri ',/, & 
' Vektör 1 — ', 3F8.2,/, ' Vektör 2 — ', 3F8.2,/, & 
' Vektör 1$vektor 2 — ', 3F8.2,/,' Vektör 1-Vektör 2 — ', 3F8.2) 
30 FORMAT (/' Skalar sabit ile çarpım işlemi ',/, & 
' Vektör 1 — ', 3F8.2,/,' 2.*Vektör 1 — ', 3F8.2,/, & 
' Vektör 1 * 2. — ', 3F8.2,/,' 2 *Vektör 1 — ', 3F8.2,/, & 
' Vektör 1 * 2 — ', 3F8.2) 
40 FORMAT (/' Skalar sabite bölme işlemi ',/, & 
' Vektör 1 <— ',3x, 3F8.2,/,' vektör 1 /5. —', 3F8.2,/, & 
' Vektör 1 /5 -', 3F8.2) 
50 FORMAT (/' Skalar çarpım işlemi ',/, & 
' Vektör 1 — ', 3F8.2,/,' Vektör 2 - ', 3F8.2,/, & 
' Vektör 1.SCALAR.Vektör 2 — ', 3F8.2) 
60 FORMAT (/' Vektörel Çarpım işlemi ',/, & 
' Vektör 1 — ', 3F8.2,/,' Vektör 2 — ', 3F8.2,/, & 
' Vektör 1 X Vektör 2 — ', 3F8.2) 


END PROGRAM Ornek5 
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Programının çıktısı 


Atama işlemleri 


Vektör 1 — 
İndisli - 


1.00 
1.00 


Toplama ve Çıkarma İşlemleri 
10.00 


Vektör 1 — 
Vektör 2 


Vektör 1 * vektor 2 
Vektör 1 — Vektör 2 


1.00 


20.00 

2.00 
11.00 
9.00 


Skalar sabit ile çarpım işlemi 


Vektör 1 - 


2. * Vektör 1 — 


Vektör 1 * 2. 
2 * Vektör 1 
Vektör 1 * 2 


Skalar sabite 
Vektör 1 
vektör 1 /5. 
Vektör 1 /5 


Skalar çarpım işlemi 


Vektör 1 — 
Vektör 2 — 


Vektör 1.SCALAR.Vektör . 


bölme 
10. 


— 2. 
> 2 


1.00 
1.00 


1.00 
. 00 
. 00 
. 00 
. 00 


Vektörel Çarpım işlemi 


Vektör 1 > 1.00 
Vektör 2 — —-1.00 
Vektör 1 X Vektör 2 


le 
5 


Zi 
Zi 
2 


. 00 
. 00 
. 00 
. 00 
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. 00 
. 00 


30.00 

3.00 
22.00 33.00 
18.00 21.00 


. 00 
. 00 
. 00 
. 00 
. 00 


O 0 OO W 


6.00 
6.00 


. 00 
. 00 


-2.00 0.00 


10.4 BİR MODÜLÜN İÇERİĞİNE ERİŞİMİ KISITLAMA 


Bir modüle USE deyimi kullanılarak erişildiğinde, otomatik olarak modül içindeki tüm 
tanımlamalara erişilir. Modül?deki programların tamamına değil de sadece birkaçına erişimine 
istendiği durumlar söz konusu olabilir. Bu işleme veri saklama adı verilir. 


Modüldeki bilgilerin programlar tarafından paylaşımını PUBLIC ve PRIVATE tanımlayıcıları 
ile sağlanır. Modül?'deki bir unsur için PUBLIC tanımlaması yapılmışsa, bu unsura modül 
dışındaki programlardan erişilebilir. Modül'deki unsur PRIVATE tanımlaması yapılmışsa, bu 
unsura modül dışındaki programlar tarafından erişilemez ancak modül içinde tanımlanan alt 
programlar tarafından erişilebilir. Aksi belirtilmediği takdirde, modülde tanımlanan sabit, 
değişken ve alt programların tanımları PUBLIC'tir. Genel kullanım şekli 


PUBLIC 
PRIVATE 


sabit, 
sabit, 


değişken veya alt programlar 
değişken veya alt programlar 
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Türetilmi veri tiplerinde modülde PUBLIC ve PRIVATE tanımlayıcıları kullanımı kuralları: 


1. Bir modülde tanımlanan türetilmiş veri tiplerinin bileşenleri PRIVATE deyiminin 
kullanılmasıyla modül dışındaki kullanımı kısıtlanabilir. Örneğin, 


TYPE vektor 
PRIVATE 
REAL :: Xx 
REAL :: y 

END TYPE vektor 


Vektörün x ve y bileşenlerine erişim kısıtlanmış olmaktadır. 
2. Önceki durumun tersine türetilmiş veri tipinin tamamı PRIVATE deyimi ile 
tanımlanabilir. 


TYPE, PRIVATE :: vektor 
REAL :: Xx 
REAL :: y 

END TYPE vektor 


Bu durumda da vekt or'e modulü kullanan programlar tarafından erişilemez. 
3. Türetilmiş veri tipi değişkenlerinin kullanımı, TYPE tanımlaması PUBLIC olmasına 
rağmen, sınırlandırılabilir. Örneğin 


TYPE :: vektor 
REAL :: Xx 
REAL :: y 
END TYPE vektor 
TYPE (Vektor), PRIVATE :: vektorl, vektor2 


Bu durumda sadece vektorl ve vektor2'nin modül dışındaki kullanımları 
kısıtlanmıştır. 


10.5 DİNAMİK BELLEK ALANI TAHSİS ETMEK 


Bu bölüme kadar verilen örneklerde, indisli değişkenlerin tanımlama kısmında indisli 
değişkenin boyutu da tanımlamak suretiyle bellek alanı ayrılmıştı. Bu tür bellek alanı 
oluşturmaya statik bellek tahsisi adı verilir ve indisli değişkenlerin bellek alanları derleme ile 
oluşturulur ve bu alan asla değişmez. İndisli değişkenin boyutu (veya teknik anlamda bellek 
alanı) problemi çözebilmek için yeterince büyük olmalıdır. Örneğin, nxn 'lik bir lineer 
denklem sistemini çözmek için yazılacak programda en fazla kaç bilinmeyenli denklem sistemi 
çözülmek isteniyorsa, örneğin 1000 ise, programdaki matris ve vektörlerin boyutu minimum 
1000 olmalıdır. Böylece problemi 5 bilinmeyenli 5 denklemden oluşan bir denklem sistemini 
çözmeye kalkıştığımızda, normalde gerekli bellek alanı çok küçük olmasına rağmen, bellek 
alanının 9699'u boşu boşuna işgal edilmiş olur. Ayrıca oluşturulan çalışabilir (executable) 
programı, bellek yetersizliği nedeniyle, her bilgisayarda çalıştırılamayabilir. Diğer taraftan, 
indisli değişken boyutları küçük tutulursa, çözülmesi arzulanan boyutlardaki problemleri 
çözmede yetersiz kalabilir. 

Bu problemi çözmenin birkaç yolu mevcuttur. Örneğin, programcı sadece kendisinin 
kullanacağı bir program ise, programı farklı boyutlarda derleyerek, çeşitli versiyonlarını 
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oluşturabilir. Ancak ticari olarak satılacak veya farklı şehirlerde farklı birimlerde farklı 
bilgisayar sistemlerinde çalıştırılacak (bankacılık sektörü gibi) bir program hazırlanıyorsa, bu 
durumda her durum ve koşula uygun bir program hazırlanmalıdır. Bu durumda en iyi çözüm 
dinamik bellek alanı tahsis etme yöntemidir. Bu yolla, program çalıştırıldığında bellek alanında 
mevcut yere göre indisli değişkenlerin boyutlarını ayarlar. Bu şekilde hem bellek alanı boşu 
boşuna işgal edilmez, hem de küçük veya büyük bellek alanına sahip bilgisayarlarda 
çalıştırılabilir. 


Dinamik bellek kullanan Fortran indisli değişkenleri tanımlama kısmında ALLOCATABLE 
niteliği ile tanımlanır ve bellek alanı ALLOCATE deyimi ile oluşturulur. Programın bellek alanı 
ile işi bittiğinde, bu bellek alanı DEALLOCATE deyimi ile boşaltılır. ALLOCATABLE niteliği 
ile indisli değişken tanımlamanın genel kullanım şekli 


Tip, ALLOCATABLE, DIMENSION(:,:) :: indisli 


olarak verilmektedir. Burada indisli değişken REAL, INTEGER, REAL*8 vb Tiplerde olabilir. 
İndisli değişken, bir, iki veya daha fazla indisli olabilir, ancak her indisin aralığı veya 
maksimum boyutu iki nokta üst üste (: ) ile girilir çünkü indisli değişkenin üst indis sınırının ne 
olabileceği bilgisayar tarafından belirlenecektir. İki nokta üst üste ile indisleri tanımlanan 
değişkenlere ertelenmiş-şekilli indisli değişken adı verilir çünkü indisin üst sınırı bellek alanı 
tahsis edilinceye kadar belirsizdir. 


Program çalıştırıldığında, indisli değişkenin gerçek uzunluğu (veya ebadı) ALLOCATE deyimi 
ile belirlenecektir. ALLOCATE deyiminin genel kullanım şekli 


ALLOCALTE (bellek alanı tahsis edilecek indisli değişkenler, STAT—statü) 


olarak verilmektedir. STAT tamsayı değeri alır tercihe bağlı olarak kullanılabilir; O değeri 
aldığında bellek tahsisi “başarılı” pozitif bir tamsayı değer aldığında bellek tahsisi “başarısız” 
olduğunu belirtir. Örneğin, 


ALLOCATE ( abc(500,0:99) ,STAT-statu) 


deyimi ile program çalıştırıldığında abc indisli değişkenine 500 x100'lik bellek alanı tahsis 
edilmektedir. 


Bellek alanı tahsisi, hemen değil de, indisli değişken kullanılıncaya kadar geciktirilebilir. 
Henüz dinamik bellek tahsisi yapılmamış indisli değişken kullanımına teşebbüs edilirse, 
program “çalıştırma hatası” (run-time error) verir ve “başarısız” çıkış ile son bulur. Fortran 
90/5'in mantıksal arşiv fonksiyonlarından ALLOCATED () bir indisli değişken kullanılmadan 
önce bellek tahsisi statüsünü test etmede kullanılabilir. 


Örneğin, aşağıda verilen program parçasında abc indisli değişkeninin statüsünü kullanmadan 
önce test etmektedir. 


REAL, ALLOCATABLE, DIMENSTION(:) :: abc 
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IF( ALLOCATED(abc) ) THEN ! .TRUE. durumu 
READ (birim, *) abc 

ELSE ! .FALSE. durumu 
WRITE(*,*) LIIll UYARI !!!1l1' 


" 
WRITE(*,*)' Bellek alanı tahsis edilmedi' 
END IF 


Program veya alt programda, bellek alanı tahsis edilen değişken kullanıldıktan (tekrar 
kullanılmayacaksa) sonra tahsis edilen bellek alanını DEALLOCATE deyimi ile boşaltmak 
gerekir. DEALLOCATE deyiminin genel kullanım şekli 


DEALLOCALTE (bellek alanı boşaltılacak indisli değişkenler, STAT—statü) 


olarak verilir. Bellek alanı tahsisi yapılmış değişkene artık programınızda ihtiyacınız yoksa 
bellek alanını boşaltmak, programı hızlandıracaktır. 


ÖRNEK 6: Tek indisli gerçek sayılardan oluşan, bellek sahasına göre alan tahsisi yapılan bir 
indisli değişken oluşturunuz. Bu indisli değişkenin elemanları toplamını hesaplayınız. 


PROGRAM Ornek6 
IMPLICIT NONE 
REAL , ALLOCATABLE, DIMENSION(:) :: x 
INTEGER :: Boyut, i 
REAL :: Topla 
READ*, Boyut 
ALLOCATE(X(1:Boyut) ) 
DO i-l1,Boyut 
X(i)zi ! Başlangıç değerleri indis değerine atayalım 
END DO 
Topla-0.0 
DO i-1,Boyut 
Topla-Toplatx(i) 


END DO 
DO i-l1,Boyut 
PRINT*, x(i) ! Değerleri ekrana yaz 
END DO 
DEALLOCATE(X) ! Xx ile işimiz bitti. Belleği boşalttık 


PRINT*, 'Toplam-',Topla 
END PROGRAM Ornek6 


10.6 GÖSTERGE (POINTER) KULLANIMI 


Fortran 90/95 dilinde bir başka değişken tipi daha tanımlanabilir ki bu değişken hiçbir suretle 
veri içermez; sadece bir başka değişkenin bellek adresini içerir. Bu tür değişkenlere gösterge 
(pointer) adı verilir. 


Göstergeler, bir programın çalışması esnasında, skalar veya indisli değişkenlerin dinamik 
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olarak oluşturulması veya imhasında, kaç değişkenin bir işleme maruz kalacağı bilinmediği 
durumlarda kullanılır. 


10.6.1 GÖSTERGE VE HEDEFLER 


Gösterge olarak kullanılacak değişkenler, tip tanımlama kısmında POINTER niteliği ile 
beraber tanımlanmalıdır. 


REAL, POINTER :: gli 
TYPE (vektor), POINTER :: vektor gosterge 
INTEGER, DIMENSION(:), POINTER :: gostl 


Bir gösterge, göstergenin tipinde herhangi bir skalar veya indisli değişken hedef olarak 
tanımlandığı sürece işlev görür. Hedef, gösterge ile kullanılmaya müsait, adresleri bilinen 
verilerdir. Hedef olarak tanımlanan değişkenler TARGET niteliği ile beraber tanımlanır. 
Örneğin, 


INTEGER, TARGET :: a, b, c 
REAL, TARGET :: u, v 
INTEGER, DIMENSION(49), TARGET :: indisli 


Bir gösterge, aynı tipte tanımlanmış birden fazla hedef için kullanılabilir. 


Target 
ilke Target 
YY, | varget 


Hedef değişkenin tipi, türü (tek/çift hassasiyet) ve/veya rankı tanımlama satırı ile belirlenir. 
İndisli gösterge boyutları geciktirilmiş boyutlama ile verilmelidir. Hedef indisli değişkenin 
rankı sabit olmasına karşın şekli değişebilir. 


Pointer 


10.6.2 GÖSTERGE ATAMA DEYİMİ 


Gösterge atama deyiminin kullanımı genel olarak aşağıdaki şekilde verilmektedir. 


Gösterge (Pointer) -> Hedef (Target) 


Burada Gösterge gösterge değişkeninin ismi, Hedef gösterge ile aynı tipte olan hedef 
değişkeninin ismidir. Atama işlemi —> karakterlerinin boşluksuz bir şekilde yan yana 
kullanılması ile gerçekleştirilir. 


Örneğin, aşağıdaki programı ele alalım. 
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Bellek 


INTEGER, POINTER :: pt 


INTEGER, TARGET 


x-34, y-0 pt > X x mız» 


pt >> x ! pt, xigösteriyor 

y > pt ! y eşit x pi 

pt >> y ! pt, yw'igösteriyor 

pt - 17 ! y eşit 17 y - pt x <s> 


Bu örnekten görüldüğü üzere gösterge bellek 4 — —. 


alanına sahip değil sadece bellek adreslerini pt 
bilmekte ve bu bellek adreslerindeki değerleri 


almaktadır. Bir başka örnek de 


REAL, POİNTER :: 


REAL, TARGET 
gz>t1 


PRINT*, g, tI, 


g->t2 


PRINT*, g, tI, 


Programının çıktısı 


-5.000000 
5.000000 


şeklinde gerçekleşir. 


PE >y &——— 5 
g v mm 
t13-5, t2-5 


t2 


t2 pt - 17 5 


-5.000000 5.000000 
-5.000000 5.000000 


10.6.3. GÖSTERGE STATÜSÜ 


Gösterge durumu veya statüsü, göstergenin geçerli bir hedefi gösterip göstermediğini belirtir. 
Bir gösterge değişkeninin üç durumda olabilir; belirsiz (undefined), #anımlı (associated) ve 
tanımsız (disassociated). Bir gösterge, tip tanımlama satırında ilk tanımlamada gösterge statüsü 
belirsiz” dir. Gösterge bir hedef ile —> ataması ile ilişkilendirildiğinde, statüsü tanımlı hale gelir. 
Daha sonra göstergenin hedef ile olan ilişkisi sonlandırıldığında, yeni bir hedef ile 
ilişkilendirilmemiş ise, gösterge statüsü /anımsızdır. Aşağıdaki diyagram göstergenin şematik 


olarak statü seçeneklerini belirtmektedir: 


Associated 


Pointer 


A 


Disassociated | ks Null 


Undefined 


Bir göstergenin, hedef ile olan ilişkisi nasıl kesilir? yani hedeften nasıl ayrılır? Bu işlem 


34 
0. 


34 
34 


| 
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göstergenin bir başka hedefe atama yapılması ile gerçekleştirilebilir; ayrıca bir gösterge 
NULLIFY deyimi ile tüm hedeflerle olan ilişkisi kesilebilir (tanımlı durumdan tanımsız duruma 
geçmek). NULLIFY deyiminin genel kullanım şekli aşağıda verilmektedir: 


NULLIFY (gösterge 1, |, gösterge 2,...1) 


Burada gösterge 1 ve gösterge 2 vs gösterge değişkenleridir. Bu deyimin icra 
edilmesinden sonra, deyim ile verilen tüm göstergelerin hedefleriyle ilişikleri kesilir. 


Bir gösterge tanımlı (ilişkili) olmadığı bir hedefi olmadan kullanılamaz. Bu nedenle, herhangi 
bir göstergenin belirli bir hedefle tanımlandığını bilmemiz gerekir. Bir mantıksal fonksiyon 
olan ASSOCTATED bu ilişkiyi belirlemek amacıyla kullanılan bir arşiv fonksiyonudur. Bu 
fonksiyon iki şekilde kullanılabilir: birinci kullanım şekli 


statü — ASSOCTATED (gösterge) 


olarak verilmektedir. Eğer gösterge bir hedef ile tanımlı veya ilişkili ise true, ilişkili 
değilse fal se değerini getirir. İkinci kullanım şekli 


statü — ASSOCTATED (gösterge, hedef) 


olarak verilmektedir. Eğer gösterge bir hedef ile tanımlı veya ilişkili ise true, değilse 
false değerini getirir. 


Bir göstergenin ilişkili statüsü, göstergenin tanımlandığı andan ilk kullanımına kadar belirsizdir. 
Bundan sonra, göstergenin statüsü ya tanımlı yada tanımsızdır. Örneğin, bir programda 
göstergeler aşağıdaki gibi tanımlanır veya geçersiz kılınır: 


REAL, POINTER :: gostergel, gosterge2 
INTEGER, POINTER :: tl 


( başka deyimler ) 
NULLIFY (gostergel, gosterge2, t1) 


Aşağıdaki program ASSOCIATED ve NULLIFY arşiv fonksiyonlarının kullanımını 
belirtmektedir. 


PROGRAM gosterge 

IMPLICIT NONE 

INTEGER, POİNTER :: gli, g2, g3 

INTEGER, TARGET :: a - 50, b - 25, c - 9 
NULLIFY ( gli, g2, g3) !I Nullify pointers 
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WRITE (*, *) ASSOCTIATED (g1) 


gi -> a ! g1, a'yı gösteriyor 
g2 -> b ! g2, b'yi gösteriyor 
g3 -—>c I g3, c'yi gösteriyor 


WRITE (*, *) ASSOCTIATED (g1) 
WRITE (*, *) ASSOCTATED (gi,b) 
END PROGRAM gosterge 


Program çalışmaya başlar başlamaz g1, g2 ve g3 göstergeleri geçersiz (tanımsız) kılınır; bu 
nedenle, ASSOCTATED (g1), sonucu false'tır. Sonra gl, g2, g3 göstergeleri a, b vec 
hedefleri ile tanımlanıyorlar, bu nedenle ASSOCTATED (g1) fonksiyonunun sonucu true 
olur. Ancak ASSOCTATED (g1,b) fonksiyonunun sonucu false olur çünkü g1, b ile 
tanımlı değildir. 


10.6.4 İNDİSLİ DEĞİŞKENLERDE GÖSTERGE KULLANIMI 


Bir gösterge skalar bir değişkeni gösterebileceği gibi indisli değişkeni de gösterebilir. Bir 
gösterge tip tanımlamada ilişkilendirileceği indisli değişkenin boyutu ile tanımlanmalıdır. 
Örneğin, 

REAL, DIMENSION (40,60), TARGET :: veri 

REAL, DIMENSTION(:,:), POINTER :: gostergem 

gostergem -> veri 


Bir gösterge sadece bir indisli değişkeni değil aynı zamanda indisli değişkenin alt kümelerini de 
gösterebilir. Örneğin, aşağıdaki programda bilgi indisli değişkeni 1'den 1 6*a kadar tamsayı 
değerleri almaktadır. gos1 tüm indisli değişkeni göstermektedir. gos2 (2: :2) orijinal 
indisli değişkenin çift indisli (2, 4, 6,...) değerlerini gösterir. gos3 (2::2) degos2 indisli 
değişkenin çift indisli ( 4, 8,...) değerlerini gösterir ve işlem bu şekilde devam eder. 


PROGRAM indis gosterge 
IMPLICIT NONE 


INTEGER :: i 
INTEGER, DIMENSION(16), TARGET :: bilgi 
INTEGER, DIMENSION(:), POİNTER :: gosl, & 


gos2, gos3, gosd, gos5 
bilgi - (/ (i, iz1,16) /) 
gosl -> bilgi 
gos2 -> gos1(2::2) 
gos3 -> gos2(2::2) 
gos4 -> gos3(2::2) 
gos5 -> gos4(2::2) 
WRITE (*,'(A,16i3) ' gos1-', gosl 
) ' gos2-', gos2 
) 
) 
) 


) 
WRITE (*,'(A,16i3)') 
) ' gos3-', gos3 
) 
) 


WRITE (*,'(A,16i3 
WRITE (*,'(A,16i3 ' gos4-', gos4 
WRITE (*,'(A,16i3 ' gos5-', gos5 
END PROGRAM indis gosterge 
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Çıktı 
gosl- Il 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 
gos2- 2 4 6 8 10 12 14 16 
gos3- 4 8 12 16 
gos4- 8 16 


gos5- 16 
şeklinde elde edilir. 


ALIŞTIRMALAR 


10.1 Aşağıdaki program parçasında varsa hataları tespit ediniz 


TYPE konum vektoru 


LOGICAL :: Ok 

REAL sa X 

REAL 4 

REAL :: zaman 
CHARACTER(LEN-5) :: mevki 


END TYPE konum vektoru 
TYPE(konum vektoru), DIMENSION(99) :: yorunge 


10.2 Türetilmiş veri tipi kullanarak kisi isimli veri tipi oluşturunuz. Kişisel bilgiler (1) adı 
(LEN-12), (2) soyadı (LEN-12), (3) yaşı (INTEGER), (4) doğduğu il (LEN—10), (9) 
aylık geliri (REAL)'den oluşmakta ve BILGI .DAT isimli bir kütükten formatsız olarak 
okunmaktadır. Yazacağınız bir program ile veri tabanında yer alan kişilerin (a) geliri 
maksimum olandan minimum olana, (b) en yaşlıdan en gence, (c) doğduğu ile göre 
alfabetik olarak sıralama yapan bir program yazınız. 


10.3 A( xp, yp ) ile B( x,, yı ) noktalarından geçen bir doğrunun eğimini veren, noktaları 
türetilmiş veri tipi olarak tanımlayıp kullanarak, bir program yazınız. 


10.4 kutupsal isimli bir türetilmiş veri tipi (7,0) re? - rcos0*ir sin4 | tanımlayınız. 
Programa girilen (4,4, ) ve (7,0, ) (yani 7, — ne ve 7) nel? karmaşık sayıları) için 
iki karmaşık sayının çarpımını, bölümünü ve n.ci dereceden kuvvetini 7,7, — Ke At), 

(0-0) 


7/5n/ne ve 2' —r/"e"? formülleriyle hesaplayan bir program yazınız. 


10.5 Uzunluk birimleri (cm, m, inç, feet, mil, mikron, Angtröm) arasında birim dönüştürme 
işlemi yapan bir program hazırlamak istiyoruz. Program herhangi bir birimde girilen 
uzunluk birimini diğer birimler cinsinden ifade etsin istiyoruz. Programınızda aşağıdaki 
gibi uzunluk isimli türetilmiş veri tipi kullanın. Dönüştürme katsayıları aşağıda 


verilmiştir. 
TYPE uzunluk 
Cm :: RBFAL 
M :: REAL 
Inc :: REAL 
Mil :: REAL 
Mikron :: REAL 
Angtrom :: REAL 


END TYPE uzunluk 
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Cm m inç feet Mil Mikron Angtröm 


100 1 39.37 3.281 6.214x104 | 109 108 


10.6 Yukarıda verilen soruyu hacim (cm?, mö, It, inç”, fö, yard, galon) birimleri için 
tekrarlayınız. 


10.7 Tarih isimli bir veri tipi oluşturarak, girilen tarihi Gun, Ay, YIL olarak okuyan ve yazan 
bir program yazınız. 


10.8 Aşağıdaki programların çıktısını bulunuz. 


(a) PROGRAM p8a 


INTEGER , POINTER :: A,B 
INTEGER , TARGET :: C 
INTEGER :: D 

G 1 

A ->C 

Cc -2 

B —> € 

D — A tf B 


PRINT *, A, B, C, D 
END PROGRAM p8a 


(6) PROGRAM p8b 


IMPLICIT NONE 

REAL , TARGET :: TI — 21 

REAL , TARGET :: T2 — 30 

REAL , POINTER :: gi, g2 

gi —> TI 

g2 -—> T2 

PRINT *, ' gli- ', gi, ' g2- ', g2 
g1-g2 

PRINT *, ' gli- ', gi, ' g2- ', g2 
PRINT *, ' TI ', TI, ' T2- ', T2 


END PROGRAM p8b 


(Cc) PROGRAM p8c 
IMPLICIT NONE 


REAL , DIMENSION(:) , POINTEFR :: X 
REAL , DIMENSION(1:10) , TARGET :: Y 
INTEGER , PARAMETER :: Boyut-10000 
INTEGER :: i 


ALLOCATE(X(1:Boyut)) 

DO i-1,Boyut; X(i)-i; END DO 

DO iz1,10; PRINT*, X(i); END DO 
DO i-1,10; Y(i)-i*i; END DO 

DO iz1,10; PRINT*, Y(i); END DO 
X->Y 

DO iz1,10; PRINT*, X(i); END DO 
END PROGRAM p8c 


(d) O PROGRAM p8d 
TYPE Link 
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CHARACTER :: C 
TYPE(Link), POINTER :: Sonraki 
END TYPE Link 


TYPE (Link) , POINTER :: Kok , Güncel 
INTEGER :: IO Statusuz0 
ALLOCATE (Kok) 
READ (UNIT—*, FMTZ—'(A) ', ADVANCEZ'NO', & 


IOSTAT—-IO Statusu) Kok5c 
IF(IO Statusu<z0) THEN 
NULLIFY(Kok3Sonraki) 
ELSE 
ALLOCATE (Kok3Sonraki) 
ENDIF 
Guncel -—> Kok 
DO WHILE (ASSOCTATED (Guncel$Sonraki) ) 
Guncel —> GuncelS3Sonraki 
READ (UNIT—*, FMTZ' (A) ', ADVANCEZ'NO',& 
IOSTAT-IO Statusu) Guncel3c 
IF(IO Statusu<z0) THEN 
NULLIFY (Guncel3Sonraki) 
ELSE 
ALLOCATE (Guncel53$Sonraki) 
ENDIF 
END DO 
Guncel -—> Kok 
DO WHILE (ASSOCTATED (Guncel$Sonraki) ) 
PRINT * , Güncelsc 
Guncel —> GuüncelS3Sonraki 
END DO 
END PROGRAM p8d 
! Bu program girdileri 
! ab de bos 
! cd fg uc 
! ne and 
PROGRAM p8e 
IMPLICIT NONE 
REAL , POINTER :: P1I —> NULL() 
REAL , POINTER :: P2 —> NULL() 
LLOCATE(P1) 
P1-21.0 
P2->P1 
PRINT *,P1 
PRINT *,P2 
P2-P241 
PRINT *,P1 
PRINT *,P2 
DEALLOCATE (P1) 
PRINT *,P2 
END PROGRAM p8e 


247 


BÖLÜM 11 


SERİLER VE TÜREV 


11.1 SONLU VE SONSUZ SERİLER 


Seriler sonlu veya sonsuz toplam içeren, bazen de sonlu çarpım v.s şeklinde ifade edilebilen 
aritmetik işlemlerdir. Örneğin, 


10 


I o İİ lk 
2, —— ve 2 Yed Iİ; 3 


2 
nzl In nzl naitn 


ifadeleri sonlu ve sonsuz serilere tipik örneklerdir. Bu serilerin toplamı, bir sayaç ve DO-END 
DO döngüsü aracılığıyla hesaplanabilir. Öte yandan, üst sınırı sonsuz olan serilerde, seri toplam 
arzu edilen basamak hassasiyetine göre kaç teriminin toplanması gerektiğini bilmemiz gerekir. 


Matematik derslerinizden hatırlayacağınız üzere serilerde bir yakınsaklık kavramı vardır. Bu 
nedenle, serilere bir takım yakınsaklık kriterleri (kıyaslama, orantı, kök ve integral testi gibi) 
uygulayarak, serinin yakınsak olup olmadığını araştırmayı öğrendiniz. Hatırlarsanız, yakınsak 
bir serinin yeterli sayıda terimini topladıktan sonra, diğer terimlerin de ilave edilmesiyle 
toplamın değişmediğine ya da çok az değiştiğine şahit oldunuz. Bunun nedeni, yakınsak 
serilerde ilave edilen her yeni terimin bir önceki terimden daha küçük olmasıdır. Böylece ilave 
edilen terim sayısı arttıkça, ilave edilen yeni terim sıfıra yaklaşacaktır. Bu durumda, toplama 
işlemini ilave edilen terimin sıfıra yaklaştığı, belirli bir basamak hassasiyetinin altında kalan bir 
yerden kesmek ve diğerler terimleri ihmal etmek durumundayız. 


Burada en önemli problem, hangi değeri sıfıra yakın kabul edeceğimizdir. Bu problem, 
tamamen serinin değerini hesaplamak isteyen kişinin, o seri toplamını kaç basamağa kadar 
hassas bir şekilde hesap etmek istemesine bağlıdır. Bir kural olarak belirtmemiz gerekirse, üç 
basamağa kadar hassas olarak hesaplanmak istenen bir seri toplamına ilave edilecek bir sonraki 
terimin 0.0001, dört basamak hassasiyet için 0.00001'den küçük olması yeterlidir. Bu nedenle, 
toplama işlemini yaparken her defasında ilave edilecek terimi ayrı bir yerde hesaplayıp, bunun 
mutlak değerinin arzu edilen epsilon değerinden (bunu e ile belirtiriz ve bu değer, tek 
hassasiyetli işlem yaparken, 10'dan, çift hassasiyetli işlem yaparken de 10-'#*den daha küçük 
seçilmemelidir) küçük olup olmadığı kontrol edilir. Eğer ilave edilecek yeni terim bu & 
değerinden küçük ise, toplama işlemi sona erdirilir. Iraksayan bir seride ilave edilen her yeni 
terim bir öncekine göre büyür veya serinin yeni değeri sıfırdan farklı bir değerde sabitlenir ki , 
bu durumda, serinin toplamının sonsuz olmasına neden olur; sonsuz döngüye girer. 


Bir sayısal örnek üzerinde açıklayalım. Yakınsadığını bildiğimiz bir seri aşağıdaki şekilde 
verilmiştir: 
y ri emi * ke 
peri vw 0 
—1-40.0625 -0.0123456 #--- 0.0001 0.00000683 -.. 
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Bu örnekten de görüleceği üzere, serinin terimlerinin soldan sağa doğru gidildikçe, bir önceki 
terime oranla küçüldüğü ve belirli bir noktadan sonra sıfıra yaklaştığı gözlenmektedir. Eğer bu 
seri toplamını üç basamağa kadar hassas bir şekilde hesaplamak istiyorsak, bu durumda seri 
toplamının ilk 10 terimini toplamak yeterli olacaktır; çünkü değeri 0.0001 olan 10.cu terimden, 
yani, V10*'den, sonraki terim 0.0001'den daha küçüktür ve 11, 12, ... terimlerinin ilavesiyle seri 
toplamın 3.cü değil, sadece 4 veya 5.ci basamağı değişecektir. 


Şimdi bu serinin programlanmasını ele alalım. Bir program aşağıdaki şekilde hazırlanabilir: 


PROGRAM sonsuz seri 
IMPLICIT NONE 


INTEGER :: n 
REAL :: nn, terim, Seri toplam 
Seri toplam-0.0 
nz6 
DO 
nznti ! Terim sayacı 


nnzREAL(n) 

terim-1.0/nn**4 
IF(ABS(terim)<EPSILON(1.)) EXIT 
Seri toplam-Seri toplam 4* terim 


END DO 
PRINT*, 'Serinin ilk',n,' terimi toplandı' 
PRINT*, 'TOPLAM - ',Seri toplam 


END PROGRAM Sonsuz seri 
Programının çıktısı 


Serinin ilk 54 terimi toplandı 
TOPLAM - 1.08232105 


Bu programda sayaç (n) ve toplam (Seri toplam) sıfırlandıktan sonra, sayaç bir artırılır. 
Serinin ilk terimi (a, — Y 1* ) hesaplanır; mutlak değerce (çünkü seri sıfıra pozitif veya negatif 
taraftan yakınsayabilir) e değerinden küçük olup olmadığına bakılır. Terimin ilk aşamalarda 
bu kriteri sağlamayacağı aşikardır. Bu kıyaslamayı sağlamadığında, terim toplama ilave edilir 
(Seri toplam-Seri toplamtterim) ve sayaç bir artırılarak aynı işlemlere, İTERIM| < € 


şartı sağlanıncaya kadar devam ettirilir. Şartın sağlandığı durumdaki Seri toplam değeri tek 
basamak makine hassasiyetine göre doğru olarak hesaplanmış seri toplamını verecektir. 
Yukarıdaki programda arşiv fonksiyonlarından EPSILON(1.) kullanılmıştır. Programın 
çalıştırıldığı bilgisayarda EPSILON(1.)-1.1921E—7 olup, seriyi 6 basamak hassasiyetle toplama 
işleminin gerçekleştirildiği anlamına gelir. Seri toplamını, örneğin 4 basamak hassasiyetle yapmak 
istersek yukarıdaki programda EPSILON(1. ) yerine 1. E-5 girmemiz yeterli olacaktır. Bu durumda 
program çıktısı 


Serinin ilk 18 terimi toplandı 
TOPLAM - 1.08226109 


olarak elde edilir. 
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Diğer taraftan, sonlu serilerin toplamında yakınsama ya da yakınsamama gibi bir problemimiz 
yoktur. Bu serileri programlarken iki yol izlenebilir. Bunlardan birisi DO-WHILE, diğeri de 
indisli DO döngüsü kullanmayı içermektedir. Bu iki yolu açıklamak için aşağıda verilen sonlu 
serinin toplamına bir göz atalım. 

ME 
e 


DO-WHILE döngüsü kullanımı ile programlamaya örnek olarak 


PROGRAM sonlu seril 
IMPLICIT NONE 


REAL :: i, pay, payda, Seri toplam-0.0 
INTEGER :: nz0 ! sayaç değişkeni 
! Sonlu Seri Toplam 
DO 
n-nti ! sayaç kullanılır 
izREAL(n) 
pay >i 4 3.0 


payda- i*i * 3.0*i - 1.0 
Seri toplam-seri toplam * pay/payda 
IF(n-13) EXIT 
END DO 
PRINT*, 'SERI TOPLAM — ', Seri toplam 
END PROGRAM Sonlu seril 


programı verilebilir. Burada yukarıda verilen sonsuz serinin programlanması için benimsenen 
algoritma aynen kullanılmıştır; ancak toplam ilk 13 terimi içermesi gerektiğinden, toplama 
işleminin sona erdirilmesi için uygulanan kriter, terimin & gibi bir sayıdan küçük olmasından 
ziyade, sayacın değerinin 13 olmasına bağlanmıştır. 


Bir indisli DO döngüsü kullanarak programlanması durumunda, program 


PROGRAM sonlu seri?2 
IMPLICIT NONE 
REAL :: i, pay, payda, Seri toplam-0.0 
INTEGER :: n 
! Sonlu Seri Toplam 
DO nz1,13 

izREAL(n) 

pay >i 4 3.0 

payda- i*i $* 3.0*i -—- 1.0 

Seri toplam-seri toplam * pay/payda 
END DO 
PRINT*, 'SERI TOPLAM — ', Seri toplam 
END PROGRAM Sonlu seri2 


şeklinde de yazılabilir. Bu programda da toplama işlemi yapılan blok, bir DO-END DO döngüsü 
içine yerleştirilmiştir. Döngü bu bloğu 13 kez (n'nin 1-13 arasındaki değerleri için) işleyecektir. 
Döngü çıkışında seri toplam sonlu seri toplamını verir. 
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DO-END DO yapısı esasen bir sayaç ve kıyaslamayı içermektedir. Örneğin, 
DO n-i,j,ib 
END DO 


genel şekliyle verilen bir DO döngüsünde, bilgisayar bu deyim çiftini işlerken döngü sayacını, 
indisin ilk değerine atar (ni), sonra END DO deyiminin bulunduğu satıra gelindiğinde, 
döngü indisinin üst sınırı olan j değerine ulaşıp ulaşmadığını kontrol eder. Bu değere 
ulaşmış veya bu değeri aşmış ise, döngü sona erer ve bilgisayar işlemek üzere END DO'dan 
sonraki satıra geçer. Fakat sayaç (n), indis üst değerine henüz ulaşmamış ise, bu 
durumda sayacı ib kadar artırır (n.-n*tib). 


ÖRNEK |: Aşağıdaki şekilde verilen ve katsayıları programa dışarıdan temin edilen serinin 
toplamını veren bir program yazınız. 


Yukarıdaki seri toplamının açılımı aşağıdaki şekildedir: 


a 


ar (bı,g*bı,ı *bı,3 *bı,3 bı a tbı,s *bı,ç bı 7 tbı,stbı,o 
a> (b>,g *b>,1*b>,>tb> 3 ib; 4tb> 5*b> 6 tb>74b> 3tb>9 
a3 (b>g*b31*b3>1b331b34*b3 5*b3 o tb37*b3 3 tb39 


g 


5 bs,g * bs,1 ii bs,2 » bs,3 * bs,a z bs,s * bs,6 t bs,7 » bs ,g ii bs,g 


a6 bs,o * bs,ı t b6,2 ni bs,3 * bs,a t bs,s çi bs,6 *t b6,7 t bs ,g t bs,9 


dg 


( ) 
( ) 
( ) 
as (ba,otba,ıtba,;tba,3 tbaatba,stba,o tba,7tba,s tba,g) 
( ) 
( ) 
( ) 


a7 b7,a * b7,ı * b7,2 bi b7,3 * b7,a t b;,s * b7,6 * b7,7 * b,g 5 b7,9 


Dikkat edilirse önce içerdeki j üzerinden toplamın hesaplanması gerekir; daha sonra a (i) "ler 
çarpılmalı ve bu çarpımlar dıştaki i üzerinden toplamı hesaplanmalıdır. Program ga, ve 
b, , katsayıları ekrandan temin edilecek şekilde aşağıdaki gibi yazılabilir: 


PROGRAM Ornekl 
IMPLICIT NONE 
REAL, DIMENSION(7) :: A 
REAL, DIMENSICON(1:7,0:9) :: B 
REAL :: TI, T2 
INTEGER :: i, j 
DO i-1,7 
READ*, A(i) ! af(i)”'leri oku 
END DO 
DO i-1,7 
DO j-0,9 
READ*, B(i,j) ! b(i,j)”lerioku 
END DO 
END DO 
! Seri toplam işlem bloğu 
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T1-0.0 
DO i-1,7 
T2-0.0 
DO j-0,9 
T2-124B(i,j) 5 (5 
END DO j : 
TI-TIHA(i) *T2 
END DO 


PRINT*, TI 
END PROGRAM Ornekl 


Seri toplamı yapabilmemiz için önce içteki toplam, yani herhangi bir i için pay ; toplamım 


hesaplamak gerekir. Bu nedenle DO döngüsünden önce bu toplamı verecek T2 değişkeni 
sıfırlanmıştır. Döngü çıkışında toplam herhangi bir i değeri için hesaplanmış olur. Daha sonra 
dıştaki toplam, içteki işlemlerin, yani a; ile T2'nin çarpımlarının toplamını verir. Bu toplam TI 


değişkeni ile temsil edilmiştir. 


Programlama mantığını anlamak için verilen seri toplamların açılımını kafanızda 
tasarlayabilmelisiniz. 


ÖRNEK 2: Aşağıdaki şekilde verilen seri çarpımını, dışarıdan girilen herhangi bir x değeri için 
hesaplayan bir program yazınız ve bulduğunuz sonucu cos x ile karşılaştırınız. 


10 2 2 2 9 2 
il 1 4x li vaz 1 si 1 zl 1 yi i 
1 (2n—Wx a 97 257 19“x 


Bu serinin açılımını göz önüne alınarak, programı aşağıda verilmiştir: 


PROGRAM Ornek2 
IMPLICIT NONE 


REAL :: x, carpim, Xx kare, pi kare 
REAL :: pi-3.14159, oran, terim 
INTEGER :: n, nn 
PRINT*, “x değerini gir'; READ*, x ! xdeğerinigir 
pi kare- pi*pi; x kare -4.*x*x 
oran - x kare/pi kare 
carpim-1.-oran ! carpım <—İ—4x7/7x” 
DO n-2,10 
nn — REAL(2*n-1) 


Terim - oran/(nn*nn) ! terim (4x7/77)/(2n—1) 
! carpım € carpimifi —(4x7 /x7)/(2n—1)J işlemini uygula 
carpim- carpim*(1.-terim) 

END DO 

PRINT*, 'Seri çarpım-',Carpim,' cosx-',COS(x) 

END PROGRAM Ornek2 
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Faktoriyel hesabında olduğu gibi, ilk terimi döngü dışında bırakarak çarpım değişkenine 
atıyoruz. Döngüyü ikinci terimden son terime kadar olan terimler için kuruyoruz. cos x ile 
karşılaştırdığımızda 0.5?den küçük x değerleri için sonuçların 2 veya 3 basamak aynı olduğunu 
gözleriz. Terim sayısını yüksek tutarak istediğimiz basamak hassasiyetinde hesap yapabiliriz. 
Bu problemi sonsuz seri çarpımı olarak, yani, 

ve) 4x2 

TI 1 2.2 

nzl (On li 7 


şeklinde 5 basamak doğrulukla hesaplamak istersek, programda nasıl bir değişiklik yapmamız 
gerekir? Yakınsamanın beş basamak doğrulukla gerçekleştiğini nasıl anlarız? 


11.2 TÜREV FORMÜLLERİN TÜRETİLMESİ 


Çok özel durumlarda bir fonksiyonun n.ci dereceden türevini analitik olarak hesaplamak 
mümkündür. Örneğin, 
0" (4-1! 


x" 


Fİ“ > (0) ge 


fün-ins> je 


f(0)sinx> İa)<sin(rr 7). 


Bu şekilde genel türevleri hesaplanabilen fonksiyonların, analitik türevlerini hesaplamak için 
uygun bir alt program yazılabilir. Örneğin, f(x) sin x için 


FUNCTION turev sinx(n, Xx) 
IMPLICIT NONE 


REAL :: turev sinx, pi-3.14159 
REAL, INTENT(IN) RX ! Arzulanan X için türevi 
INTEGER, INTENT(IN):: n ! Türevin derecesi 


turev sinx-SIN(x*0.5*pi*REAL(n) ) 
END FUNCTION turev sinx 


ÖRNEK 3: Aşağıda verilen fonksiyonu, dışarıdan girilen herhangi bir x gerçek sayısı için 
fonksiyonun kendisini, birinci ve ikinci dereceden türevlerini hesaplayan bir FUNCTION 
programı yazınız. 


3 
je In(1-4x) 


Fonksiyonun birinci ve ikinci dereceden türevleri sırasıyla 


9x... Ins) 


(x — 
70) 143 Pa 
N —18  18—27x 2in(l4x) 
X)Z # 
7) 3 (dedry Pi 


olmaktadır. 
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Buna göre, 
PROGRAM Ornek3 
IMPLICIT NONE 
REAL :: x, Analitik Turev 
INTEGER::'n 
READ*, Xx ! Xx değerini gir 
DO n-0,2 
PRINT*, n,x,Analitik Turev(n,Xx) 
END DO 
END PROGRAM Ornek3 


FUNCTION Analitik Turev (derece, x) 


IMPLICIT NONE 

INTEGER, INTENT(IN) :: derece 
REAL, INTENT(IN) iz 

REAL :: Analitik Turev 


SELECT CASE (derece) 
CASE (:-1) ! Hatayolu 
PRINT*, derece,'.ci dereceden türev tanımsız' 


CASE (0) ! f(X) fonksiyonunun hesabı 
Analitik Turev- LOG(1.13.*x**3) /x 
CASE (1) ! f'(X) türevinin hesabı 


Analitik Turevz 9.*x/(1.13.*x**3)6 
—LOG(1.13.*x**3) /x*42 
CASE (2) ! f''(Xx) türevinin hesabı 
Analitik Turevs-18./(1.143.*x**3) 4& 
(18.—27.*X**3)/(1.43.*X**3) **242.,.*6 
LOG(1.13..*X**3) /Xx**3 
CASE (3:) ! n>z3 için türev? 
PRINT*, derece,'.ci dereceden türev'& 
' programlanmamıştır... ' 
END SELECT 
END FUNCTION Analitik Turev 


Ancak, maalesef, her fonksiyon için n .ci dereceden bu tür analitik türev bağıntıları elde 
etmemiz mümkün olmamaktadır. Çok uzun ve karmaşık analitik ifadelerin türevleri de çok 
uzun olabilir veya fonksiyon kesikli dağılım ile belirli olabilir. Bu nedenle analitik türevi 
hesaplamak için türevin tanımından yararlanmamızı gerekli kılar. 


Matematik derslerinden hatırlayacağınız gibi, bir / (x) fonksiyonunun x —a değerindeki 
türevi tanım olarak 

(LI) 
olarak verilmektedir. 


Bilgisayar aracılığıyla türev hesabında, analitik olarak verilen bir (x) fonksiyonunun 


türevine ilaveten, analitik ifadesi bilinmeyen sadece kesikli dağılımı bilinen fonksiyonların 
türevleri de hesaplanabilmektedir. 
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Örneğin, aşağıda verilen fonksiyon, analitik olarak tanımı bilinen bir fonksiyondur. 
f (a) <sin(e'-2x4x7 )43x—arctan (x) (11.2) 


Diğer taraftan, aşağıdaki tablo ile verilen, suyun buharlaşma gizli ısısının sıcaklıkla değişimi 
kesikli dağılım vermektedir; bu değişim bir f (7) şeklinde ifade edilememektedir. 


T(K) 280 300 320 340 360 380 
hş, (k/kg) o 2485 2438 2390 2341 2290 2248 


Şimdi türevin tanımına dönecek olursak, tanımdan çıkartılan sonuç / değerini mümkün olduğu 
kadar küçük seçmek olacaktır. Bu durumda herhangi bir a noktasında / (x) fonksiyonunun 


türevi 
f(ash)-f(a) 


f'la)z i (11.3) 


olarak yazılabilir. Bu türev formülüne ileri fark formülü denir ve bu formül ile yapılan hesabın 
hata oranı h ile doğru orantılıdır. İleri fark formülü olarak adlandırılmasının nedeni de dikkat 
edileceği gibi a noktasından h kadar ilerideki bir noktaya göre eğim hesaplanmaktadır. 


Eğer a noktasının /h kadar gerisindeki bir noktaya göre eğim (yani türev) hesaplanacak olursa, 
formül 
, J a İl a—h 
F'(a)s ) A ) (11.4) 


şeklini alır ve bu formül de geri fark formülü olarak adlandırılır. Geri fark formülü ile yapılan 
hata oranı da aynı şekilde h ile doğru orantılıdır. 


Bir başka hesap şekli daha ortaya konabilir. Bu da a noktasının /h kadar ilerisinde ve gerisindeki 
değerleri esas alan eğim hesabıdır: buna göre 


: f(a-h)— f(a—h 

pay flar Hle a) (15) 
2h 

elde edilir. Bu durumda a noktası a*/h ile a—harasında yer aldığından dolayı, bu formül 

merkezi fark formülü olarak adlandırılır. Merkezi fark formüllerinde yapılan hata ise, h? ile 


doğru orantılıdır. 


İkinci dereceden türevlere gelince, / (a) hesaplamak için ileri-fark formülü olarak 


ed df(a) f'(askh)-f'(a) 1 f(as2h)-f(ash) f(ash)-f(a) 
ar h l n h | âli 
O flar2h)-2f(ash)a f(a) 
m 


elde edilir. Benzer Şekilde geri ve merkezi fark formülleri sırasıyla 
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dx dx h h h h 


Ni f(a)-2f(a—h)*f(a-2h) 
PU 


f"(a)- ddf(a) f'(a)-f'(a—h) , elen m 
(1.7) 


nx İ'(ath/2)—f'(a—h/2) 1( f(ash)-f(a) #(a)-f(a-h) 
7) h 1 | 
 f(arh)-2f(a)*f(a-h) 


2 


hi 


(11.8) 


elde edilir. 


ÖRNEK 4: f(x)-x'e * fonksiyonunun x -I'deki birinci ve ikinci dereceden türevlerini 


türev tanımından yararlanarak ve h değerini değiştirerek hesaplayan bir program yazınız ve 
analitik değerleri ile kıyaslayınız. 


Söz konusu fonksiyonun türevleri f(x) — (2x- ö Je” ve fx) (© —4x4 2)e* analitik 
ifadelerinde x-1 alındığında /”(1)-0.367879 ve /”(1)-—0.367879 olarak hesaplanır. 


x zl noktası için ileri ve merkezi fark formülleri, sırasıyla 


Fy AE ve Ji) 


N f(142h)—-2f(14h)*f(1 : f(14h)-2f(1)4* f(I—h 
gey İZA) çi gey ll e 0) 
şeklinde yazılır. Türevleri, 4 <0.1, 0.01 ve 0.001 için, bu formülleri kullanarak hesaplayacak 
olursak, sonuçların Tablo 11. I'deki şekilde olduğu görülecektir. 


İ(14h)— f(i—h) 
2h 


Tablo 11.1 Türev formüllerinin / ile değişimi 


h f'(1)dileri) (o f'(1)(merkezi) o f”(1)lileri) o /”(1)(merkezi) 


0.1 0.348945 0.367263 -0.394891 -0.366344 
0.01 0.366034 0.367873 -0.371452 -0.367864 
0.001 0.367695 0,367879 -0.368246 -0.367879 


Tablo 11. | 'deki türev değerleri incelendiğinde, merkezi fark formülleriyle elde edilen türev 
değerlerinin gerçek değerlere, ileri fark formülleri ile elde edilenlerden, daha yakın olduğu 
gözlenir. Bunun nedeni kullanılan formüllerin hata miktarıdır; ileri fark formülündeki hata, 
h—O.l için, O0.IK, (Kı ve K> sabitlerdir) iken merkezi fark formülünde 0.01K, dir. Bütün 
formüllerde / değeri küçüldükçe Kı ve K2 'nin hata terimindeki etkisi küçülmektedir. Bu etki 
merkezi fark formülünde, K> 'nin katsayısı daha küçük olduğundan dolayı, daha hızlı 
olmaktadır. 


Bu şekilde analitik olarak verilen bir fonksiyonun herhangi bir x—a noktasında birinci ve 
ikinci dereceden türevlerini veren bir program kesiti aşağıda verilmektedir. 
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PROGRAM turev 
IMPLICIT NONE 


I 

l ÖRNEĞİN F(X) >X#X*EXP (—X) 'İN TÜREVLERİNİN HESABI 
!I BU PROGRAMDA 

! * a -— TÜREVİN HESAPLANMASI ARZULANAN x-a 

! * FI - BİRİNCİ DERECEDEN TÜREV, 

! * F2 - İKİNCİ DERECEDEN TÜREVİ VERMESİ İÇİN 

l ATANAN DEĞİŞKENLERDİR. KULLANILAN FORMÜLLER 

I MERKEZİ-FARK FORMÜLLERİDİR. 

ı 


REAL :: a-l1.0, h, fl, f£2 
PRIN*, 'h Değerini Giriniz' 
READ*, h 


£1-0.54 (f(ash)-fF(a-h)) /h 
£2-(f(ath)-2.0*f(a)*f(a-h)) /h**2 
PRINT*, 'Fonksiyonun x-',a,' daki Türevleri ' 
PRINT*, 'Birinci Dereceden Türev-—',fl 
PRINT*, 'ikinci Dereceden Türev-',f2 
END PROGRAM turev 
l 
REAL FUNCTION F(X) 
IMPLICIT NONE 
REAL :: F 
REAL, INTENT(IN) :: Xx 

F3 x*x*EXP (—x) 
END FUNCTION £ 


Diğer taraftan mühendislik hesaplarında kullanılan birçok fiziksel değişkenlerin (yoğunluk, 
gizli ısı, viskozite, vs) sıcaklıkla veya basınçla değişimleri #(T) gibi bir fonksiyon olarak ifade 
edilmesi mümkün değildir. Bu fonksiyon değerleri farklı sıcaklık ve/veya basınçta deneysel 
olarak tespit edilmiştir. Bu nedenle her sıcaklık ve/veya basınçtaki özelliği bilemeyiz. Bu tür 
verilere kesikli dağılım adı verilir. Analitik olmayan (kesikli dağılan) fonksiyonların çeşitli 
Xp, X,,..., x, değerlerine karşılık gelen /), f,...., £, değerleri olsun. Bu durumda herhangi bir 


x, noktası için türev formülleri 


fi İ'()e > ji (İleri fark formülü) 
( 


MEME haha (merkezi fark formülü) 


şeklinde yazılabilir. Ancak bu formüller belirli bir oranda hata içermektedir. Türevleri başka 
yollarla hesaplama olanağımız olmadığından belirli oranda hataya razı olacağız ya da mevcutsa 
daha az hata ile hesaplama tekniklerini, formüllerini kullanacağız. 


Dikkat edilecek nokta x;'lerin eşit aralıklarla dağılmış olmalarıdır; yani Xx; —x; , -/h şeklinde 
belirtilebilmesidir. Bu tür dağılımların türevlerini hesaplayan bir program yazarken f.'lerin bir 


boyutlu indisli değişken olarak tanımlanmaları büyük kolaylık sağlar. Aşağıda herhangi bir 
x;noktasında birinci ve ikinci dereceden türevi hesaplayan bir SUBROUTINE verilmektedir. 
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SUBROUTINE turev(n, m, Xx, f, fl, £2) 


IMPLICIT NONE 
l 


! EŞİT ARALIKLARLA KESİKLİ DAĞILIMI OLAN DEĞİŞKENLERİN 
! TÜREV HESABI 
ı 


INTEGER, INTENT(IN) :: n ! Kesikli dağılım uzunluğu 


INTEGER, INTENT(IN) :: m ! Türevi alınacak noktanın indisi 
REAL, DIMENSION(n), INTENT(IN) :: x ! Fonksiyonun absisleri 
REAL, DIMENSTION(n), INTENT(IN) :: f ! Fonksiyon değerleri 
REAL, INTENT (OUT) ye El ı Birinci dereceden türev 

REAL, INTENT(OUT) :: f2 ! İkinci dereceden türev 

REAL :: h, h2 

INTEGER :: i 

h — x(2)-x(1) ! Aralık genişliğinin hesabı 

h2 - h*h 


! Merkezı-Fark Formülleri Kullanılmıştır. 
f1 -0.5*(£(mt1)-£(m-1)) /h 

f2 —(£(mt1)—-2.0*£(m) *-£(m-1) ) /h2 
END SUBROUTINE turev 


Çeşitli uygulamalara referans teşkil etmesi bakımından, bazı türevler için fark formülleri 
aşağıdaki verilmiştir. 


Merkezi fark formülleri (hata /? ile orantılı): 


k İdi Ji 
Ji 2h 
e” 
zf — İs z Jİ 1 
gp Ji — 2fi 2 İz 
i 2h 
İleri Fark Formülleri: 
ji hk h ile orantılı 
j- di * Olim 23 , Zile orantılı 
2h 
Geri Fark Formülleri: 
> Al h ile orantılı 
Ji- Bh Ahat hiz , hile orantılı 


2h 
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ALIŞTIRMALAR 


11.1 Birden girilen herhangi bir n tamsayısına kadar (a) tüm sayıların (b) sadece tek olanların 
(c) sadece çift olanların toplamını veren bir program yazınız. 


11.2 Birden girilen herhangi bir n tamsayısına kadar (a) tüm sayıların (b) sadece tek olanların 
(c) sadece çift olanların küpleri toplamını veren bir program yazınız. 


11.3 Programa girilen herhangi bir (a, b)J aralığında 0.1 artırımlarla elde sayı dizisinin (a) 
toplamını (b) kareleri toplamını (c) küpleri toplamını bir program yazınız. 


11.4 Aşağıda verilen serinin toplamını 4 basamak doğrulukla bulmak için bir program yazınız. 
1 2 3 4 


. ge X de 
vel Ye yl Pl 


11.5 Aşağıdaki seri ifadesi ile verilen T değerini, programa dışarıdan girilecek herhangi bir x 
(0<x <2) değeri için hesaplamak istiyoruz. Bu ifadeyi hesaplayan bir programı yazınız. 
NOT: Programınız, girilen x değerinin belirtilen aralıkta olup olmadığını kontrol eden ve 
kullanıcıyı uyaran bir kısım içersin. 


5 DB. 
p— A; xi pe ve ae 
> Jİ ( ) .İ Şi 78 


11.6 Aşağıdaki seri işlemini verilen şartlar altında hesaplamak için bir akış şeması çiziniz ve 


program yazınız. 

17 msin(7zm / 8), ms8 g0 im 
Ayy > : — 

2 ab, 2 m sin(zm/32), om>8 n sinnz/5),  n>6 


11.7 Aşağıdaki işlemi herhangi bir x değeri için hesaplayan programın akış şeması çiziniz 
ve programını yazınız. NOT: Burada kullanılan diler dışarıdan temin edilen 


sabitlerdir. 
9 
Jİ İdixcosir 
izl 
11.8 Tanjant hiperbolik fonksiyonun değerini hesaplamak için verilen bir algoritma aşağıda 
çıkartılmıştır. 
x<0 için Oo tanhx——tanhx, 
İx| < 0.00034 için (o tanhx—x, 


<1 
0.0034 <Ja| <0.17 için ans -/)4s(asc(0*9))| 


0.17 <(af<11.15 için — tanha-(e'-e*)/(e'se”) 


x)>11.15 için (o tanhxl 
Burada f —4xlog,e, A-5.7707802, B-0.0173286, C<14.1338411 ve D-349.6699888 
olarak verilen sabitlerdir. Verilen algoritma uyarınca tanh(x) fonksiyonunu hesaplayan bir 
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FUNCTION Tanh2 isimli bir alt program yazınız; arşiv fonksiyonu TANH (Xx) ile test 
ediniz. NOT: Dışarıdan girilen bir gerçek x sayısı için Tanh2 (x) ve Tanh(x) ile 
mutlak hata Tanh (x) —Tanh2 (x) hesaplanacaktır. 


11.9 Aşağıdaki matematiksel işlemleri yapmak üzere hazırlayacağınız bir programa önce bir 
algoritma hazırlayın, bu algoritma için akış şeması çiziniz ve program yazınız. 


10 15 
Duy) Dep 
izl ja 
Burada y; - 0.0256 #12), e; -)3/ *C4) | (8 ve x —i/l5 olarak verilmektedir. 


11.10 Aşağıdaki sonsuz seri çarpımı ifadelerini dışarıdan temin edilecek herhangi bir x değeri 
için hesaplayan bir programlar yazınız. 


lirik 
vizem ras) 
a e vi 


X 


1.11 Bir şahıs yıllık i faiz veren bir bankaya her yılın aynı gününde A YTL'nı n yıl boyunca 
yatırmaktadır. n yılın sonunda biriken para F faizi ile beraber 


i » 42 şi NA 
F-A lise) isa) velisi) 
100 100 100 100 


formülü ile hesaplanıyor. A, i ve n değişken olmak üzere faizi hesaplayan bir program 
yazın. NOT: Yukarıdaki formülün genel şekli: 


P m i 2m n nm 
F-—A G i ) is : ) vali : ) 
100m1 100m1 100m1 


Burada m bir yıldaki faiz periyodu sayısıdır. 


11.12 Aşağıda seri şeklinde verilen ifade x'in (1,37 kapalı aralığında 0.I'lik artırımlarla, dört 


basamak doğrulukla (hata mertebesi £ 10 'ten küçük olacak şekilde) hesaplanmak 
isteniyor. NOT: Seri toplamının bir FUNCTION alt 


programıyla yapılması 
önerilmektedir. 
x*2 x-4 x4*2m S2 xr2n 
Xx) — — (4) — — (ke — (4x) — 
8-17 #1 8-27 #1 8m #1 n208 Kİ 


11.13 Dizinin değerleri programa dışarıdan temin edilen (konsoldan veya bir kütükten de 


olabilir) N tane xi ve M tane y; indisli değişkenlerinden hareket ederek, bu iki dizinin 
varyanslarını ve toplam varyansını hesaplamak için bir program yazınız. Verilenler: 


N 
VAR(X) 57-3 (x— x) /N Toplam varyans ——— — — 
izl ii 
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11.14Bir lokantanın vestiyerine şapkasını teslim eden K kişi şapkalarını geri almak için 
vestiyere gittiklerinde vestiyer çalışanı herkesin şapkasını karıştırmış olduğunu fark 
ediyor. Bu K şahısın şapkalarını almama olasılığı aşağıdaki formül ile saptandığı 
bilindiğine göre bu problemi, programa temin edilecek bir K değeri için çözecek bir 
program yazınız. 


A Iı Z 
—— —4—-— 4... 4 —— —1 
ir ni 21 
11.15 Herhangi bir x değeri ve N — 10 için Z(x) fonksiyonunun değerini aşağıda verilen seri 
açılımları, 7 ve x'in fonksiyonu olarak verilen F,(x) ve Y.(x) yardımıyla, hesaplamak 
istiyoruz. Bu işlemi bilgisayar aracılığıyla yapabilmemiz için bir program yazınız. 


EA ye oi yöii ia > (2m) 


2 2m ml 
mzl (ax ) mzl (z 7TX ?) 


A YE) 601,0) 


(n41)! 


nzl 
NOT: Hazırlayacağınız program Fu(x), in ve faktoriyel hesabını yapan 
üç adet FUNCTTON içermelidir. 


11.16 Aşağıdaki seri işlemlerini ve Z yi hesaplayan bir programı yazınız. 


> Esi >” 7- # 


kl dkİ sk nl x*y 


11.17 Dikdörtgensel basit destekli plakaya uygulanan üniform yük ile plakanın, 0O<xs<a 
ve-b/2< ysb/2, herhangi bir (x, y) noktasındaki bükülme momentleri Mı, M, ve Mış 
aşağıdaki seriler ile veriliyor. 


Li in DA 1—v)cosh 8, 
M,-O07x'a” Y nx” ) Gi sinh 8,,x 
113 || 428, ,((- v)8,ysinh 8, y—2vcosh 8, 1 
| 4v. 


v0 —n2A,(1-v)cosh 8,y 
M > 0x'a bi nx” | sinh 8,x 


nz1,3 | B, ((1- v)8, ysinh 8, y -2v cosh 8, y) 


My (1-v) Ora” Yy mA, sinh 4, y -n7B, (sinh 8,y * 8, y cosh BY) cosh 8,,x 
nz1,3 


ayrıca 


2 
- a, < Pr8, B,- 5 


n Li 


—— ——, A,--B,(a,tanhe, *2) 

a 2 7m cosha,, 

olarak tanımlıdır. Burada O uygulanan üniform yük ve v poisson oranıdır. Plaka 
üzerindeki herhangi bir noktadaki momentleri hesaplayan bir program yazınız. Veriler: 


0-25 kg, v-0.3, a 20cm, b -24cmve e 0.0001. 
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11.18 Aşağıdaki formül ile verilen & ifadesini hesaplayan bir program yazınız. 


D,- arccos (k/50) 


v3k? —1 


On li 
az (142) C,D, * k4-| |—— 
nl kl n—0 (2n * 1) 


11.19 Bir araba harekete geçtikten sonra her 2.5 sn'de bir hızı ölçülerek kaydedilmiş ve 
bu ölçümler aşağıdaki tabloda verilmiştir. Bu arabanın 25 sn sonu itibarıyla her 2.5 
sn'ye denk gelen ivmesini hesaplayan bir program yazınız (NOT: İvme a — dv/dt ile 
hesaplanacaktır). 


BED EEE EKA EL EC EZEN EZ 


C, - cosh |k'? -e#) 


EXGZDEKI RENE ESA ESNEME EE EEE 


11.20 Aşağıdaki verilerde her bir x noktası için birinci ve ikinci dereceden türevlerini hata oranı 
en az olacak şekilde hesaplayınız. 


Xx 10 
veli 


2.0 
0.31 


2.5 
0.44 


0.5 
0.8 


1.0 
0.2 


1.5 
0.25 


11.21 f(x)>31x41—x /In(x41) fonksiyonunun türevim (f(12)) xz1.2'de hata oranı 


(0.1) ile orantılı olacak şekilde ileri, geri ve merkezi fark formülleri ile hesaplayınız ve 


analitik olarak hesaplanan türev değeri (yani, gerçek değeri) ile karşılaştırınız. Yazacağınız 
bir programda / girdi olsun. 


11.22 Aşağıda dağılımı verilen fonksiyonun /'ve /," türevlerini mümkün olan en az hata ile 


i 


hesaplayınız. 


11.23f(x) fonksiyonu aşağıdaki şekilde tanımlanmıştır: 


KOR sin x he 


© —arctan x 


11,21 aralığında her 0.1'lik artırımlara karşılık gelen x değerleri için fonksiyonun birinci ve 
ikinci dereceden türevlerini merkezi fark formülleri ile hesaplayan bir program yazınız. 
Programda / — 0.001 alınız ve herhangi bir x için türevleri hesaplayan bir SUBROUTINE 
oluşturunuz. 


11.24 nci dereceden bir polinomun, dışarıdan girilen herhangi bir x gerçek sayısı için, y', y” ve 
y” türevlerini analitik olarak hesaplayan bir FUNCTION Fonk(n,derece,x,a) 
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programı yazınız. Burada n polinomun derecesi, derece kaçıncı dereceden türevin 
hesaplanacağı, a polinomun katsayılarıdır (a(0:n)). Fonksiyonda Derece-0 ise 
polinomun kendisini, Derecez1 ise birinci dereceden türevini, vs getirecektir. 


n 
Fonk(a) xa, ta,x tax? * sax" — 2. a;x 
iz0 


İPUCU: Fonksiyonu sonlu toplam şeklinde yazdıktan sonra, 
Fonk'(x) <a, -2a)x*3a;x? #--#na,x”İ — b 


olduğuna dikkat ediniz. Aynı işlemi ikinci ve üçüncü dereceden türevler için benzer 
şekilde tekrar ediniz. 


11.25 Aşağıda verilen fonksiyonun, dışarıdan girilen herhangi bir x gerçek sayısı için, y', y” ve 
y” türevlerini analitik olarak hesaplayan bir FUNCTION Fonk (x, derece) programı 
yazınız. Burada derece kaçıncı dereceden türevin hesaplanacağı, derece-0 ise 
fonksiyonun kendisini, Derecez1 ise birinci dereceden türevini, vs getirecek bir program 
yazınız. NOT: Fonksiyonun söz konusu türevleri analitik olarak elle hesaplanıp, 
programlanacaktır. 


f(G) sin? x 
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KÖK BULMA 


Mühendis ve bilim adamlarının belki de en çok ihtiyaç duydukları matematiksel işlemlerden 
biri de bir fonksiyonun kökünü (veya köklerini) bulmaktır. Kök bulma işleminde fonksiyonlar 
karşımıza, polinom şeklinde ya da trigonometrik, üstel, hiperbolik v.b fonksiyonların 
kombinasyonunu içeren şekilde çıkabilmektedir. Bunlardan 


1 
A e“sinx—I, x7e“—2x—tanx 


gibi ifadelerin köklerini analitik yöntemler ile bulmak ya çok zor yada imkansızdır. Bu tür 
fonksiyonlara lineer olmayan denklemler adı verilir. Bu denklemleri sayısal yöntemler 
kullanarak, özellikle bilgisayar yardımıyla çözmek gerekir. 


Polinom şeklinde olan fonksiyonlardan en basiti ve herkes tarafından bilinen ikinci dereceden 
denklemin köklerinin hesabını içerir, ikinci dereceden denklem 

ax *axta, 0 
genel halinde verilmişse, bu denklemin kökleri A — a; —4a,a, olan diskriminantın işaretine 
bağlı olarak gerçek yada sanal/komplekstir. 


Eğer A >0 ise iki gerçek kök mevcuttur. 


a NA 


1,2 


2a, 
Eğer A -Oise bir birine eşit iki gerçek kök mevcuttur. 
ie 
1,2 Za, 


Eğer A <Oise bir birinin eşleniği şeklinde iki sanal kök mevcuttur. 

—a,ti vY-A 

Ni 2a, 

ikinci dereceden bir denklemin köklerini veren, çift hassasiyetle işlem yapan, ikinci isimli 
bir alt program ile bunun kullanıldığı ana program aşağıda verilmiştir: 


Xı3 


PROGRAM ikincibDenklem 

IMPLICIT NONE 

REAL (KIND-8), DIMENSION(2):: xI, x2 

REAL (KIND-8) :: a, b, c 

PRINT*, "İkinci dereceden denklemin katsayılarını" 
PRINT*, "a, b ve c sırasıyla giriniz" 

READ*, a,b,c 

CALL ikinci(a,b,c,x1,x2) 

! Burada Kökler Ekrana Yazdırılıyor 
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PRINT*, " KÖKLER " 

WRITE (*,10) x1(1),x1(2) 

WRITE (*,20) x2(1),x2(2) 

10 FORMAT(3X,'X1-(',f£12.6,2X,',',f12.6,' i)') 
20 FORMAT(3X,'X2-(',f£12.6,2X,',',f£12.6,' i)') 
END PROGRAM ikincibDenklem 


SUBROUTINE ikinci(a2,a1,a0,x1,x2) 
IMPLICIT NONE 


REAL (KIND-8), INTENT(IN) :: a0, al, a2 
REAL (KIND-8), DIMENSTION(2), INTENT(OUT) :: x1(2), x2(2) 
REAL (KIND-8) :: delta 


İKİNCİ DERECEDEN DENKLEMİN KÖKLERİNİ HESAPLAYAN 
ALI PROGRAM. İKİNCİ DERECEDEN DENKLEM 
2 
A2 *X 4Al *X 4 A0 -0 


KÖKLER 
Kök1l x1(1) # x1(2) 1 
Kök2 -— x2(1) *$* x2(2) i 
ŞEKLİNDE OLACAKTIR. NOT: BU PROGRAMIN 'COMPLEX' 
TANIMI ILE PROGRAMLANMASI DAHA UYGUNDUR. 
!I —--- Not: Çift hassasiyetli işlem yapar!!! ———— 
delta-al*a1-4.0*a0*a2 


ı 
ı 
ı 
ı 
ı 
! 
!I ŞEKLİNDEDİR. 
ı 
ı 
ı 
ı 
ı 
ı 


x1(2)20.d0 ! Sanalkısımları sıfırla 
x2(2)20.d0 
IF(delta>-0.d0) THEN 
delta-DSORT (delta) ! Gerçek kısımları hesapla 


x1(1)-0.5d0* (—-altdelta) /a2 
x2(1)-0.5d0* (—-al—delta) /a2 


ELSE 
delta-DSORT (—-delta) ! Gerçek kısımları hesapla 
x1(1)--0.5d0*a1/a2 
x2(1)-x1(1) 
x1(2)-0.5d0*delta/a2 ! Sanal kısımları hesapla 
x2 (2) -—x1 (2) 

END IF 


END SUBROUTINE ikinci 


Diğer taraftan, üçüncü dereceden bir polinomun köklerinin bulunması için de bir algoritma 
geliştirilmiştir. Bu algoritma, üçüncü dereceden polinom 


A,Xİ tax” tax ta, 0 


şeklinde veriliyorsa O, R, S ve T değerleri 
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 lfa, aj R- 1 aa, a, 2a; 
O—— e g0 , 2 3 İ> 
3la; 3a; 2134; a; 2Ta; 
y3 y3 

s-İrsyoreri | , T>İR-Jo'er| 


ifadelerinden hesaplanır. Eğer aç, a,, a,, a, katsayıları gerçek sayı ve D-OİR? 


diskriminant ise, buradan, 


(1) D>0 ise, bir kök gerçekl diğer iki kök kompleks eşleniktir; 


xy 2S54 — 2. 
3a; 
I 1. 
X--71(S47) se tziV3(S T) 
1 a 1 
— SAT 2 iN3(S—T 
3 b En ziN3I ) 


(2) D—0 ise, bütün kökler gerçektir ancak son iki kök birbirine eşit katlı köktür; 


Hasr 2 
3a; 


1 a 
5 5 <—İS4T)-—- 
di 2 ) 3a, 
(3) D<0 ise, bütün kökler gerçek ancak birbirine eşit değildir: 


1 R 
X 2-0 cos e i > 


e 3a; 
Xx, 2)/-O cos e - pa 22 


3 3a, 


1 1 R 4x d; 
Xx 22 cos) —cos * 
ey ŞE 3) 3a; 
Maalesef bütün polinom/fonksiyon kombinasyonları için yukarıda verilen şekilde güzel 
analitik çözüm algoritmaları bulmak mümkün değildir. Sadece bazı özel fonksiyonlar için 
ortaya atılan metotlar vardır. 


12.1 POLİNOMLARIN TÜM KÖKLERİNİN HESAPLANMASI 
Aşağıdaki şekilde genel olarak verilen bir polinomu ele alalım: 
AŞK ka, ta, 3X7 4 kaşxsa, <0 


Bu polinomun köklerinin bulunması için birkaç metottan birisi olan Bairstow metodu iteratif 
bir çözüm yöntemidir. Yöntem polinomu 4 px4g ikici dereceden ifadesine bölünmesini 
sağlayan p ve g katsayılarını bulmak ve daha sonra bu ikinci dereceden denklemin köklerini 


hesaplamak esasına dayanır. Polinomun derecesi tek ise son kalan birinci dereceden ifadenin 
kökü gerçektir. Yöntemin sayısal çözüm algoritması aşağıdaki verilmektedir: 


BÖLÜM 12. KÖK BULMA 267 


1. Polinomun derecesini (n) ve katsayılarını A; (i—n,n—1I,...,1,0) gir. 
2. nal ise kök tektir ve x——a, /a,'e eşittir. Adım 1'e git 
3. n>2 ise ikinci dereceden a,x” #a,x*-a, -0 denklemdir. p-a,/a,, g-a,/a, olarak 


ata ve Adım 1 l'e git 
n>3 ise p-0O ve g0 tahmin değerleri olarak al 
5. B,—B, -0 değerleri ile başla ve i-2,3,-..,(n-42) için 
B;—A, ,—pB, ,—gB, , katsayılarını hesapla 
6. C, —C, <0 değerleri ile başla ve i—2,3,--.,(n-2) için 
G;—B; ,— pG; ,—gC; , katsayılarını hesapla 
7. Adım 3 ve 4'de hesaplanan katsayıları kullanarak, aşağıdaki artırım ifadeleri hesapla 
Ap- a Byz — BuCnai Ag - Pas AC $ PCnşı)— BpşCni 
Cas —Cn(Bnşı * Cps>) Cas —Cn(Bnşı * Cns>) 
8. p ve g'nun yeni tahmin değerlerini hesapla (k iterasyon adımıdır) 


ph pd kap gk sg şag 
9. Yakınsama kriterini kontrol ederek, p ve g 'nun yakınsamasını kontrol et. 
Ap) *|Aa) 
jp» 4g» 


10. Adım 9'daki kritere göre yakınsama sağlandı. Yani n.ci dereceden polinomun 
çarpanlarından birisi 4 Ppx*g-0 ikinci dereceden denklemidir. Bu denklemin 


köklerini bul. 
11. Kök(leri) ekrana veya kütüğe yazdır. 


12. Polinomun çarpanlarından birisi x” - px4-g-0 olduğunda göre n— 2'nci dereceden 


< e ise yakınsama sağlanmadı ise Adım 4'e git. 


çarpım polinomunu bul. n—n—2 ve j—0,1,2,....n için A,—B,,, ataması ile yeni 
polinomun katsayılarını bul 
13. n<0 ise tüm kökler bulunmuştur! Programı sonlandır! n > 0 ise Adım 2'ye git. 


İkinci dereceden denklemin köklerini bulmak için bu kısımda verilmiş olan ikinci isimli alt 
programından yararlanılmıştır. 


PROGRAM TestBairstow 
IMPLICIT NONE 


REAL (KIND-8), DIMENSION(0:20) :: A 
INTEGER :: i,n 
WRITE(*,10) 
READ*, n ! Polinomun derecesini Oku 
DO izO,n 
WRITE(*,20) n-i ! Polinomun katsayılarını oku 


READ*, A(i) 


END DO 
CALL Bairstow(n,A) ! Çözdürücü programı çağır 
10 format(' Polinomun derecesini giriniz: ') 


20 format(3x,'A(',i2,')2') 
END PROGRAM TestBairstow 
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SUBROUTINE Bairstow(k,A) 


BAIRSTOWN Metodu ile k.cı dereceden bir polinomun 
tüm (gerçek ve sanal) köklerini hesaplayan (ÇİFT 
HASSASİYETLİ) bir alt programdır. 


ı 
ı 
ı 
l 
! 
! k : Polinomun derecesi 

! A : Aşağıdaki düzende verilen polinomun katsayıları 
ı 

l 

ı 

ı 

l 


k k—1 2 
Ax *t A Xx k...t A Xx 1tA x1tA —-- 
k k-—1 2 1 (0) 
INTEGER, INTENT(IN) :: k 
REAL (KIND-8), DIMENSTION(0:k), INTENT(INOUT) :: A 
REAL (KIND-8), DIMENSION(0:20) :: B, C, P 
REAL (KIND-8), DIMENSION(2) :: xl, x2 
REAL (KIND-8) :: deltP,deltO,d,r,t,u,v,X,y,z,hata 
INTEGER:: i, jJ, m 
REAL (KIND-8) :: p1-0.d0O, g -0.d0 
INTEGER, PARAMETER :: Maxit-100 
mk ! M'i hata tahmininde kullanmak için sakla 
nk 
! Polinomun katsayıları A(i) --> P(i) kopyala 
DO iz0, n 
P(i)-A(i) 
END DO 


! Çözümleme kısmı 
WRITE (*,20) 
WRITE (*, 25) 


DO 
SELECT CASE (n) 
CASE (1) ! nz1 için çözüm 
x - -A(1)/A(0) 
y — 0.d0 
CALL Kok Yazdir(m,Xx,y,P) 
EXIT 
CASE (2) ! nZ2 için çözüm 


pi- A(1) /A(0) 
g - A(2)/A(0) 
CALL ikinci(1.d0,p1,g,x1,x2) 
CALL Kok Yazdir(m,x1(1),x1(2),P) 
CALL Kok Yazdir(m,x2(1),x2(2),P) 
EXIT 

CASE (3:) ! n>zZ3 için çözüm 
lt) 
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DO 
IF (j>Maxit) THEN 
WRITE (*,30) 


EXIT 
ELSE 
ii 
B(0)-0.d0 ! B(i) veC(i)'leri hesapla 
B(1)-0.d0 
C(0)-0.d0 
C(1)-0.d0 


DO iz2, nt2 
B(i)-A(i-2)-p1*B(i-1)—g*B(i-2) 
C(i)5-B(i-1)-p1*C(i-1)—-g*C(i-2) 
END DO 
x-B(n11) ! deltP ve delt0'i hesapla 
y>B(nt2) 
z-C(n) 
tzC(nt1) 
uzC(nt2) 
d-t*t—z*(utx) 
IF (d--0.d0) THEN 
WRITE (4,30) 
EXIT 
ELSE 
deltP-(z*y—x*t) /d 
delt9o-(-x*(g*z*tp1*t)-y*t) /d 
p1i-plitdeltP !I Yeni pl ve dg 
g-gtdelto 
hata-(dabs(deltP) tdabs (delt0)) & 
/ (dabs (pl) tdabs (9) ) 
END IF 
IF (hata<EPSILON(1.0)) EXIT 
END IF 
END DO 
call ikinci(1.d0,p1,g,x1,x2) 
call Kok Yazdir(m,x1(1),x1(2),P) 
call Kok Yazdir(m,x2(1),x2(2),P) 


n-n-2 ! Polinomun katsayılarını güncelle 
DO iz0O, n 
A(i)-B(i12) 
END DO 
CASE (:0) I n<0 ise döngüden çık 
EXIT 
END SELECT 


END DO 
WRITE (*,25) 
20 FORMAT(13x,'Kökler',/,2X, & 
'Gerçek Kısım',4x, 'Sanal Kısım',5x, 'Mutlak Hata') 
25 FORMAT(2x,44('-—')) 
30 FORMAT(' İşlemler Yakınsamıyor...') 
END SUBROUTINE Bairstow 
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SUBROUTINE Kok Yazdir(m,x,y,P) 
IMPLICIT NONE 


INTEGER, INTENT(IN):: m 
REAL (KIND-8), DIMENSION(0:20), INTENTI(IN):: P 
REAL (KIND-8), INTENT(IN):: x,y 
REAL (KIND-8), PARAMETER :: kucuk-1.d-12 
) 


REAL (KIND-8 
INTEGER:: i 
! Yapılan hatayı hesapla 
uzP (0) 
v-0.d0 
DO izl, m 
Tr-U*x-viy 
V2U*Yİ1v*x 


al,r,u,v 


uzr*P(i) 
END DO 
al—DSORT (u*utv*v) 
uz0.d0 
v>0.d0 
DO izl, m 


T-U*x-viy 
V2U*Yİ1v*x 
uzr4*(m-i*1) *P(i-1) 

END DO 

IF (DABS(a1) <kucuk) THEN 
a1-0.d0 

END IF 

IF (u*utv*v>kucuk) THEN 
al—-al/DSORT (u*utv*v) 


ELSE 
al-1.d12 
END IF 


WRITE(*,20) Xx, y, al 
20 FORMAT(f13.8,3x,f13.8,3x,esl4.7) 
END SUBROUTINE Kok Yazdir 


12.2 LİNEER OLMAYAN DENKLEMLERİN ÇÖZÜMÜ 


Çözümü en zor gibi gözüken problemlerden birisi de kökü araştırılan fonksiyonun lineer 
olmamasıdır; yani yukarıda belirtildiği gibi değişik fonksiyonların kombinasyonu şeklinde 
olmasıdır: xe* —x-1—0 gibi. Bu durumda, analitik çözüm aramak zamanı boşa harcamak 
anlamına gelir. Fakat bu tür fonksiyonların da köklerini bulmak için çeşitli sayısal metotlar 
geliştirilmiştir. Bunlardan en yaygın ve etkin bir şekilde kullanılanı Newton-Raphson 
metodudur. 


12.2.1 NEWTON-RAPHSON METODU 


Bu metod bir ardışık tekrar gerektirir. Fonksiyonun bir kökü için Xİ“) tahmin değeri atamamız 
ve bu tahmin değerini her keresinde yenilememiz gereklidir. Bulunan yeni değerler 
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fonksiyonda yerine konarak fonksiyonun değerinin sıfıra yaklaşıp yaklaşmadığı kontrol edilir. 
Eğer fonksiyon sıfıra arzu ettiğimiz bir e değeri kadar yaklaşırsa çözüm bulunmuş demektir. 


Ardışık tekrar için kullanılması tavsiye edilen işlem: 


en) LİE) 


ri) 


ile verilmektedir. Burada ifadede üstel şekilde (n) gösterimin anlamı n.ci işlem aşamasındaki x 
değerini belirtmektedir. 


Newton-Raphson metodunu programlamak için aşağıda bir algoritma verilmektedir: 


1. Kök için tahmin değeri, x“İ ve kökün hesaplanması arzulanan basamak hassasiyetini 
(e) girdi olarak sapta 


2. Fonksiyonun f (9) ve f "(2x ) değerleri hesapla 
3, 60-4 ci) / İ "(2x ) formülünden birbirini takip eden aşamalarda bulunan kök 
ara değerleri arasındaki farkı hesapla 


4, Xİ) xl) 4 Sİ) formülünden de (n*#1).nci aşamada kök için bulunan ara değeri 
hesapla 


5. Eğer ps») < & ise, yakınsayan kök > x(”*) değerinde saklıdır. Adım (6)'a git. Kök 


bulunmamış ise, Mİ e işlem (2).nci adıma gönder, (2)-(5) adımlarını kök 


bulununcaya kadar devam ettir 


6. Kökü (xl) ekrana yazdır ve programı durdur. 
ÖRNEK 1: e* -3x eşitliğini sağlayan x değerini bulalım. 


Bu eşitliği f (xX)>e*-3x-0, yani sıfıra eşitlenecek şeklinde yazıldığında f (x)'in kökü bu 
eşitliği sağlayacaktır. 


Başlangıç tahmin değerini x(9) - 0.3 alırsak ve yukarıda verilen algoritma uyarınca gerekli 
işlemleri yapacak olursak Tablo 12.1 'deki sayısal değerler elde edilir. Burada sadece altı 
basamak hassasiyetle çalışılmıştır. 


PROGRAM kokbul 
IMPLICIT NONE 


REAL :: x, delta, x0-0.3, eps-1.e-5 
REAL :: İf, p 
INTEGER :: n 


ı 

!I NEWTON-RAPHSON YÖNTEMİ İLE KÖK BULMA İŞLEMİNİ 
!I YAPAN PROGRAM. 

! *'n — İTERASYON SAYACI 

ı 

ı 


* XO KÖK İÇİN BAŞLANGIÇ TAHMİNİ, 
* EPS - YAKINSAMA İÇİN KULLANILACAK KRİTER, 
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! * F(X) —- KÖKÜ ARANAN FONKSİYON 
! * P(X) DF/DX, YANİ F'in X'e GÖRE TÜREVİDİR. 
I 


WRITE(6, 50) 


X>XO0 ! Çözümü başlangıç değerine ata 
nsÖ ! İterasyon sayacını sıfırla 
DO 
WRITE(6,60) n,x,f£(x) 
nan$tl ! nt1'ci iterasyon işlemlerini yap 
delta-f(Xx)/p(x) 1 6" - f(x“) / P(x) 
x-x-delta rx) ça) gl) 


IF (ABS(delta)<eps) EXIT ! Yakınsadı! Dögüden çık! 
END DO 
WRITE (6, 70) 
50 FORMAT(5X,'i',10X,'x',15X,'Fx',/,3X,35('-')/) 
60 FORMAT(3X,i13,3X,f10.7,5X,f£12.7) 
70 FORMAT(//10X,'KöK-',f14.8//) 
END PROGRAM kokbul 


REAL FUNCTION £(x) 
! #* Kökü aranan fonksiyonu f — f(x) burada tanımlayın 
IMPLICIT NONE 
REAL, INTENT(IN) :: x 
İ-EXP (Xx) -3.*X 
END FUNCTION £ 


REAL FUNCTION p(x) 
! #* f(x) fonksiyonunun türevidir. p(x)—df /dx 
IMPLICIT NONE 
REAL, INTENT(IN) :: Xx 
p>EXP (Xx)-3. 
END FUNCTTION p 


Tablo 12.1'den de görüldüğü üzere kök üç iterasyonda yakınsamaktadır. 


Tablo 12.1: e*—3x-0denklemini Newton-Raphson metodu ile çözüm aşamaları. 


ln) NET Plan) 
0.3000000  0.4498588 — -1.6501411 
0.5726184  0.0550479 — -1.2270968 
0.6174787 0.0018109 — -1.1457529 
0.6190593  0.0000023 o -1.1428199 


£wWw rr. © 
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12.2.2 VON MİSES METODU 


Newton-Raphson metoduna benzeyen fakat türevi bir çok kez hesaplamaya gerek bırakmayan 
bir metod da von Mises metodudur. Bu metod da benzer şekilde bir ardışık tekrar metodudur. 
Fonksiyonun kökü, aşağıda verilen ve ardışık işlem gerektiren ifade ile hesaplanır. 


Ardışık tekrar için kullanılması tavsiye edilen işlem: 


(n) 
e) ey İ 


e 1) 
) 


Bu ifadeden de görüldüğü üzere Newton-Raphson formülünden tek farkı paydadaki türevin 
sadece başlangıç tahmin değeri için hesaplanması gerektiğidir. Bu metodun algoritması da 
Newton-Raphson'un kinin hemen hemen aynıdır. 


Tablo 12.2: Örnek V'in von Mises metodu ile çözüm aşamaları. 


n xn) plan) 

0 0.3000 o 0.4498 
1 0.5726 o 0.0551 
2 0.6059 o 0.0152 
3 0.6151 Oo 0.0045 
4 0.6178 Oo 0.0014 
5 0.6186 Oo 0.0005 
6 0.6189 o 0.0002 
7 0.6190 o 0.0001 


Yukarıda çözülen problemi bu metod ile çözüp ve sayısal değerleri Tablo 12.2'de 
özetlediğimizde, problemin çözümü için yapılan ardışık işlem sayısının Newton-Raphson 
metodundan fazla olduğu görülür. 


Polinomların, kompleks katsayılı polinomların ve daha nice lineer olmayan denklemlerin 
köklerini bulmak için geliştirilen yöntemlerin sayısı oldukça fazladır. Mühendislik ve 
teknolojik öneme sahip metotların en önemlilerine Nümerik Analiz derslerinde değinilecektir. 
Burada kapsanan metotlar şu anda temel bilimlerde karşılaşabileceğiniz problemleri çözecek 
yeterliliktedir. 


ALIŞTIRMALAR 


12.1 Fraunhofer differaksiyonunun incelenmesinde 


(s2) 2 
a 2 


denklemi ile karşılaşmaktayız. Bu denklemde & 'yı radyan olarak alarak verilen eşitliği 
sağlayan & çözümünü bulunuz. 


274 BÖLÜM 12. KÖK BULMA 


12.2Aşağıda verilen eşitlik bir helisel yay sisteminin hareketini tanımlamaktadır: 
tan 4— 4-G 
Burada 8 ile verilen açıyı (a) C—0.01 ve (b) C 0.001 alarak hesaplayınız. 


12.3Aşağıda verilen fonksiyonun bir tane katlı kökünü bulunuz. Başlangıç tahmin değeri olarak 
Xx) 1 alınız 
f()>x—2xe “şe 


12.4 Bir devreden geçen akımın zamana göre değişimi 
i-Se “sin(2/4)45sin(5t—z/4) 
olarak verilmiştir. Akımın sıfır olduğu zamanı saniye cinsinden bulunuz. 


12.5 Hidrojen sülfür gazının parçalanma derecesi X 
(1-PK?)X3-3X 42-0 


denklemi ile verilmektedir. Burada K denge sabiti ve P (atm) toplam basınçtır. 2000 Kelvin 
sıcaklığında K-0.608 olduğu bilindiğine göre, H2S'in | atm basınçta parçalanma derecesini 
bulunuz, X'in alabileceği değerlerin 0 ile | arasında değişmesi gerektiğine dikkat ediniz. Bu 
aralık içinden ve dışından başlangıç tahmin değerleri kullanarak problemi çözünüz ve 
sonuçları irdeleyiniz. 


12.6 Van der Waals durum denklemi 
a 


ile verilmektedir. Bu denklemde P basınç, v molar hacim, T sıcaklık ve R gaz sabitini temsil 
etmektedir. Sabitlerden a, bağlanma kuvvetinin bir ölçüsü ve b de bir hacim düzeltme 
faktörü olarak kullanılmaktadır. Basınç atm, hacim lt ve sıcaklık K (kelvin) birimi olarak 
alındığında .R'nin değeri 0.082 It-atm/K-mol'dür. Toluen için a ve b sabitleri 

a - 24.06 It-atm/mol Oo b 0.1463 It/mol 
olarak veriliyor. Toluen'in | atmosfer basınçta kaynama sıcaklığı olan 1109C sıcaklığın- 
daki molar hacmini hesaplayınız. 


12.7 Üçüncü dereceden denklemlerin köklerinin bulunması ile ilgili olarak verilen algoritmaya 
dayanarak, bu tür denklemlerin köklerini bulan bir genel program yazınız ve köklerini 
bildiğiniz denklemler ile kontrol ediniz. 


12.8 Aşağıda verilen iki bilinmeyenli iki lineer olmayan denklemin köklerini Newton-Raphson 
metodunu uygulayarak çözmek istiyoruz. 
a *b”-21 a'-b'11 
Program yazmak için ilk önce bu sistem için Newton-Raphson formülünü geliştiriniz, 


sonra formülleri programlayınız (bilinmeyenleri 10-*ten küçük hata ile hesaplamak 
istiyoruz). VERİ: İki değişkenli fonksiyonlar için Taylor formülü: 


atan), ei 
hey) Fy) tl ğ İnel © “ © İçe) 


NOT: Problem, bilinmeyen sayısı teke indirgenerek de çözülebilir. 
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12.9 Aşağıdaki polinomların tüm köklerini bulunuz. 


(a) 2x —5x9 44x—1—0 
6,5 9,4 İm 2 LL. 
(b) Xx 4x7—2x 43x 4x 410x—4—0 
(C) X7 45x94 7xÖ 4 8x9 —12x9 4 49x—54 —0 
(d) x9 8xİ—27x7 —28x9 45x9 —9x? —81x4115 0 


12.10 Kalınlığı 10 cm olan ve oldukça yüksek bir plakanın sıcaklığı 1009 C 'ta homojen 
olarak tutulmaktayken, £ — 0 anından itibaren plakanın iki tarafından hava üflenerek 
soğutulmaya başlanmaktadır. Bu plakanın herhangi bir x noktasında ve t anındaki sıcaklığı 
Tt) 

ör 
Ot 0 
T(x,0)-1009C, —-7(04), 1>0 1010), t>0 
diferansiyel denklemi ve sınır şartlarıyla beraber verilmektedir. Bu kısmi diferansiyel 
denklemin analitik çözümü aşağıda verilen seri şeklinde edilmiştir: 


T(x,1)-400X İL ekp | azı) cs) za, Ğ -) : 0<x<0.Im 
n—İ (3 * da; ) 2 
Burada &, değerleri 
1 
atana —— 
2 


denkleminin pozitif kökleridir. Bu seri ifadesinden faydalanarak plakanın herhangi bir x 
(metre) noktasının t (saniye) anındaki sıcaklığını bulan bir program yazınız. NOT: Önce & 
değerlerini bulunuz ve bunları programa bir MODULE ilave ediniz ve USE deyimi ile ilgili 
programlarda yararlanınız. 
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MATRİSLER VE VEKTÖRLER 


Matrisler ve vektörler ile uğraşırken indisli değişkenler kullanılmak zorundadır. Matrisler ile 
uğraşmamızın nedeni ise birçok problemin çözümünde lineer denklem sistemlerinin karşımıza 
çıkmasıdır. N bilinmeyenli N denklemin çözümü için yapılması gerekli işlerden birinin de 
matrisin tersini hesaplamak olduğudur. 


Lineer denklem sistemleri diferansiyel denklemlerin nümerik çözümleri, yapısal analiz, devre 
analizi, optimizasyon, ve veri analizi gibi birçok problemlerin çözümlerinde karşımıza 
çıkarlar. Oldukça fazla sayıda denklemden oluşan sistemlerin çözümlerine sıkça karşılaşılır. 
Bu durumda denklem sistemlerini hem doğru hem de verimli bir şekilde çözmek için uygun 
bir algoritma saptamak önemli olmaktadır. 


13.1 TEMEL BİLGİLER 


Bir matrisin n satır ve n sütunu var ise bu matrise Kare Matris denir ve nxn ile gösterilir. 
Örnek olarak 4x4 'lük bir matris aşağıdaki şekilde verilmiş olsun. 


da, daş daş daş 


Köşegen 4,/,43.43, VE aş, elemanlarından oluşmakta olup, bu terimlere matrisin Ana 
Köşegeni denir. Eğer matrisin elemanları arasından a; — a ; bağıntısı var ise matris simetriktir 


denir. Bir Üst Üçgensel Matris ana köşegen altında kalan bütün elemanları sıfır olan matristir. 


dal Az M3 daş 


O a, aş a 


Yukarıda verilen A matrisi bir üst üçgensel matristir. Benzer şekilde A/£ Üçgensel Matris de 
matrisin ana köşegeni üstünde kalan bütün elemanları sıfır olan matris olarak tanımlanır. 


Birim matris I ile gösterilir ve ana köşegeni "1" diğer elemanları sıfır olan matristir. Band 
Matris ise ana köşegen etrafındaki köşegenlerde sıfır olmayan elemanlardan yoğunlaşmış 
matristir. 
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Aaj, Aş O 0 
a a a 0 
21 dp d3 
A — 
0 aş Az üz 


O 0 ay daş 


A matrisi band genişliği üç olan bir band matristir ve band genişliği üç olan matrislere ayrıca 
Üç Köşegenli matris de denir. 


A, B ve C nxn'lik kare matrislerinin elemanları sırasıyla diş, bi ve Ci olarak verilmiş olsun. 


C—A £B operasyonu neticesinde C matrisinin elemanları c;; — a;, £b,, ifadesi ile hesaplanır. 


Eğer C matrisi bir çarpım matrisi ise, yani, CXAxB,o zaman çarpım matrisinin elemanları: 
n 
Ci > Dabi; 
k3l 
ifadesinden hesaplanır. Program I'de bu işlemi yapan bir SUBROUTINE alt programı 


verilmektedir. Eğer A matrisi, boyutu n olan bir X vektörü ile sağ taraftan çarpılıyorsa, sonuç 
bir vektördür. Bu sonuç vektöre R dersek, yani, R— Ax X, çarpım vektörünün elemanları, 


Yan (13.1) 
kzl 


ifadesinden hesaplanabilir. Bu işlemi gerçekleştiren bir SUBROUTINE alt programı da 
Program 2'de verilmiştir. 


Dördüncü mertebeden bir lineer denklem sistemin (4 x 4) matris formundaki eşdeğeri 


hı d> diz haf Xı Ul 
Gi ez Mp Gflea| (ia (13.2) 
dı A2 A3 dal iz B 
da, daş diz daa Xa yi 


veya aşağıdaki şekilde bir matris denklemi ile ifade etmek mümkündür. 
AX-R 


Burada A matrisi 4x4'lük bir kare matris, X uzunluğu 4 olan bilinmeyenlerden oluşan vektör 
ve R'de aynı uzunlukta olan sağ-taraf vektörüdür. 


Lineer denklem sistemlerinin çözümünde kullanılan metodlardan birisi de Kramer kuralıdır ve 
herhangi bir x, için çözüm ile verilir. Burada det A,, matrisin /'.nci sütunu R vektörü ile 
değiştirilmiş matrisin determinantını ifade etmektedir. Lineer denklem sistemini (xn için) 
Kramer metodu ile çözmek için yapılması gereken temel aritmetik işlem. sayısı n* ile 
orantılıdır. Bu metodun bilgisayarlarda lineer denklem sistemini çözmede kullanılması, 
gerektirdiği işlem sayısı itibariyle pratik değildir; bu nedenle bilgisayarda daha az işlem 
gerektiren ve daha pratik olan metotlara değineceğiz. 
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ÖRNEK 1: İki matrisin çarpımını yapan bir alt program hazırlayınız, ana program kullanarak 
test ediniz. 


PROGRAM Ornekl1l 


IMPLICIT NONE 
REAL, DIMENSION(3,3) :: c, b 
REAL, DIMENSION(3,3) :: asRESHAPE( (/ 1., 2., 3., & 
Ap Bay Gap Taj Bp De İç (73,3/4)) 
INTEGER :: i,j,n>3 
b-RESHAPE( (/ 2.,-2., 3., 1., O0., 4., 1., 2., & 
—7. /),(/3,3/) ) 
WRITE (*,20) 'A' 
DO izl,n 
WRITE(X,10) (a(i,j),j21,n) 
END DO 
WRITE (*,20) 'B' 
DO izl,n 
WRITE(*,10) (b(i,j),j21,n) 
END DO 
CALL mcarp(n,a,b,c) ! Matris çarpımı yapıldı 
WRITE(X*,20) 'C' 
DO izl,n 
WRITE(X,10) (c(i,j),j21,n) 
END DO 


10 FORMAT(5(2x,F7.1)) 
20 FORMAT(2x,A,' matrisi') 
END PROGRAM Ornekl 


SUBROUTINE mcarp(n,a,b,c) 


IMPLICIT NONE 

INTEGER, INTENT(IN)::'n 

REAL, DIMENSION(n,n), INTENT(İN) :: a 
REAL, DIMENSION(n,n), INTENT(İN) ve 5 
REAL, DIMENSION(n,n), INTENT(OUT) :: c 
INTEGER :: i,ij,k 


l 
CZAxB ISLEMINI YAPAN ALIPROGRAM 


#* B (nxn) BOYUTLU MATRISTIR 
#* C (nxn) BOYUTLU MATRISTIR (-A*B) 
DO izl,n 
DO j-i1i,n 
c(i,j)-0.0 
DO kzl,n 
c(i,j)-c(i,j)ta(i,k)*b(k,j) 
END DO 
END DO 
END DO 
END SUBROUTINE mcarp 


! 
! 
LI #X A (nxn) BOYUTLU MATRISTIR 
! 
! 
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Programın çıktısı 


A matrisi 


1.0 4.0 7.0 
2.0 5.0 8.0 
3.0 6.0 TO 

B matrisi 
20 1.0 1.0 
-240 0.0 2.0 
3.0 4.0 7.0 

C matrisi 
15.0 29.0 —40.0 
18.0 34.0 —44.0 
21.0 39 0 —48.0 


olan MATMUL(A,B)bu işlevi görmektedir. A,B boyutları uyumlu çarpım 
sırasına göre verilen matrislerdir. 


NV Normalde matris çarpımını programlamanıza gerek yoktur; arşiv programı 


ÖRNEK 2: Bir matris ile vektörün çarpımına ilişkin alt program hazırlayınız ve test ediniz. 
Alt programda Denklem (13.1)'in programlanması gerekmektedir. 


PROGRAM Ornek2 
IMPLICIT NONE 


REAL, DIMENSION(3) :: XZ(/ 2., 4., -7. /), r 

REAL, DIMENSION(3,3) :: azRESHAPE( (/ 1., 2., 3., & 
Ay Buy Gar Tep Sep 9s 44 4/3.34)) 

INTEGER :: i,ij, n>3 


! Matrisleri yazdır 
WRITE (3,20) 'A' 
DO izl,n 

WRITE (3,10) (a(i,j),jz21,n) 
END DO 
WRITE (3,20) 'x' 
DO i-I,n; WRITE(3,10) x(i); END DO 
CALL vcarp(n,a,x,r) 
WRITE (3,20) 'r' 
DO i-I,n; WRITE(3,10) r(i); END DO 
10 FORMAT(5(2x,F7.1)) 
20 FORMAT(/2x,A,' matrisi") 
END PROGRAM Ornek2 


SUBROUTINE vcarp(n,a,x,r) 
IMPLICIT NONE 


INTEGER, INTENT(IN) :: n 
REAL, DIMENSION(n), INTENT(IN) :: Xx 
REAL, DIMENSION(n,n),INTENT(IN) :: a 


REAL, DIMENSION(n), INTENT(OUT):: r 
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INTEGER :: i, k 
RSAxX ISLEMINI YAPAN ALIPROGRAM 


** x (1:n) BOYUTLU VEKTÖRDÜR 


I 

! 

Il *#X a (nxn) BOYUTLU MATRISTIR 

I 

l ** r (1:n) BOYUTLU VEKTÖRDÜR (-a*x) 


DO i-i,n 
r(i)20.0 
DO k-I,n 
r(i)zr(i)ta(i,k) *x(k) 
END DO 
END DO 


END SUBROUTINE vcarp 


Programının çıktısı 


A matrisi 


1.0 4.0 TÜ 
2.0 5.0 8.0 
3.0 6.0 9.0 


r matrisi 
—-31.0 
—32.0 
93340 


Matris denklemi şeklinde verilen ifadeden hareketle eşitliğin iki tarafı A matrisinin tersi ile 
soldan çarpılınca çözümü, matris notasyonu ile, 

X-A'R 
şeklinde elde edilebilir. Fakat bu denklem sisteminin çözümü matrisin tersini hesaplamaya 
gerek kalmadan da yapılabilir ve bu metodlar bilgisayar zamanı açısından da daha verimli 
metodlardır. 


ifade edilmesi için kullanılan bir deyimdir. Kullanım şekli; 
REHAPE( (/1,2,..veriler /), (/n,m/) ) olarak verilir. 


” RESHAPE niteliği, bir boyutlu bir matrisin nxm boyutlu bir matris olarak 


13.2 YOKETME METODLARI 
Lineer denklem sistemlerinin çözümleri ve ters matrisin bulunması işlemi için en sık 
kullanılan doğrudan çözüm metotlardır. Bu metotlar oldukça eski olmalarına rağmen sayısal 


hesaplarda en etkili ve pratik metotlardır. 


Aşağıda verilen dört bilinmeyenli dört denklemin matris formunu, Denklem (13.2)'i ele alalım. 
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Gauss yoketme metodu aslında satır işlemlerinden ibarettir. Önce birinci satır a, , ile bölünür: 


l aş; az aş fx; Ui 
Ga Ga ap Sapa) (va 
dı dd A3 Aaj) iz B 
da, daş diz daş Xa 74 


Burada (') ile gösterilen matris elemanları bu elemanların değiştiğini ifade etmektedir. Birinci 
denklem a, , ile çarpılıp ikinci denklemden çıkartılır. 


LI a, aş aşı Ui 
O ay 5 al n 
dı d3 A3 Aza |) A3 B 
da, daş da3 daa Aa Ta 


Birinci denklem şimdi a,, ile çarpılıp üçüncü denklemden daha sonra da a,, ile çarpılıp 
dördüncü denklemden çıkartılırsa, 


, /, , , 
l ap az aş) n 
, /, /, , 
O a,a;ay|xw)| jr 
Oa,a,sasln| lr 
32 G3 d34 3 3 
O a, as ax n 
42 Gaz daa Aş 4 


elde edilir. 


Aynı şekilde ikinci satır 4), ile bölünür ve bu elemanın bulunduğu sütunda ve altındaki 


elemanlar benzer şekilde sıfırlanır. Böylece köşegen üstündeki elemanlar "1" yapılırken alt 
üçgensel kısım sıfırlanmış olur ve sonuç olarak denklem sistemimiz aşağıdaki şekli alır. 


la; 43 aş) n 
O 1 a; ayl») nr 
00 1 aylal ir 
O 0 0 1x, 4 


Denklem (13.1) ile verilen sistemimizi bilinmeyenler için çözülebilecek bir sekile sokmuş 
oluyoruz. Gauss yoketme metodunda bilinmeyenleri en alttaki denklemden başlayarak en 
üstteki denkleme doğru ilerleyerek buluyoruz. En alttaki denklemden, 
4 N 
üçüncü denklemden, 
, , , , 
X3 td34X4 Ni le) veya X3 Ni RB —d34X4 

ikinci denklemden, 

, R , li , p 

Xa) # Az3X3 tA)4X4 —T) veya X) <1) — Az3X3 — Aaa 
son olarak da birinci denklemden, 
X H4)3X3 $4j3X3 taşa — ni veya X, 1 —d(3X) — 3X3 — Aş 

bulunur. 
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Gauss-Jordan metodunda ise yoketme işlemi üst üçgensel kısım için de uygulanır. Bu 
durumda, 


1 0 0 O) Li 
ol 0 olu) |(» 
001 0) İF 
000 1x, rş 


nihai denklem sistemi elde edilir. Buradan denklem sisteminin çözümünün sağ taraf vektörü, 
yani X, —/', X—/, Xx IŞ, ve Xx, —rj olduğu görülür. 


Gauss yoketme metodu için bir algoritma aşağıdaki şekilde verilmektedir. Bu algoritma da 
kullanılan i -a(b)c şeklindeki gösterimin anlamı /i—a'dan c'ye kadar /'lik artırımları 


kastetmektedir. Fortran 90/95 programlama dilinde DO i-a,c,b deyimine karşılık 
gelmektedir. 


1. A kare matrisi ve R sağ taraf vektörü temin edilir. 

2. k-I(I)n'ekadar pla, ve r; —r, xp hesaplandıktan sonra 3-6. aşamalar her 
k için tekrarlanır. 

3. iz(k*1)(I)n için ay; <aş; x p hesaplanır. 

4. iz(k*1)(1)n'e kadar 5-6 aşamalar her i için tekrarlanır. 

5. jz(k*1)(1)n'e kadar Gauss yoketme işlemi matris için aj; — aj — di, X Ay 
ifadesinden hesaplanır. 

6. Sağ taraf vektörü ise yoketme sırasında ; —r—a,, xr, ifadesi gereğince 
değiştirilir. 

7. Yoketme işlemi tamamlandıktan sonra x,'nin çözümü Xx, —r,dir. 

8. k—(n—1)(—1)1'e kadar 9-11. aşamalar her £ için tekrarlanır. 

9. Toplam—Oalınır. 

10. j—(k*1)(1)n'e kadar Toplam <Toplam * a,; xx ; ifadesi hesaplanır. 


11. k.ncı bilinmeyen x, <7, — Toplam formülünden hesaplanır. 


ÖRNEK 3: Gauss yoketme metodu ile n bilinmeyenli n denklem sisteminin çözümünü yapan 
altprogram aşağıda verilmiştir. 


SUBROUTINE Gauss Yoketme Metodu(n,a,r,Xx) 
IMPLICIT NONE 


INTEGER, INTENT(IN) :: n 

REAL, DIMENSION(n), INTENT(INOUT) :: IT, XX 
REAL, DIMENSION(n,n), INTENT(INOUT) :: a 
REAL :: toplam, p 

INTEGER :: i, j, k 


ı 

! Gauss Yoketme Metodu ile Lineer Denklem Sisteminin 
! Çözümünü verir. 

! (n xn) ŞEKLİNDEKİ LİNEER DENKLEM SİSTEMİNİN 
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UYARI! Alt programa girilen matris ve vektörlerin 
başlangıç değerleri bozulmaktadır... 


! ** a(n,n) : DENKLEM SİSTEMİNİ BELİRLEYEN MATRİS 
! ** r(n) : SAĞ TARAF VEKTÖRÜ 

! ** x(n) : BİLİNMEYENLER VEKTÖRÜDÜR. 

ı 

ı 


p-1.0/a(k,k) 
r(k)2r(k) *p 
DO i—-k*ti,n 
a(k,i)-a(k,i) *p 
END DO 
DO i—-k*ti,n 
DO j-k*1,n 
ali, 3) -a(i, 3) -al(i,k)*a(k, j) 
END DO 
r(i)zr(i)—a(i,k) *r(k) 
END DO 
END DO 
! Sondan başa doğru çözümlerin elde edilmesi 
x(n)zr(n) 


DO k—n-1,1,-1 
toplam-0.0 
DO j—k*1,n 
toplam-toplamta(k,j) *x(j) 
END DO 
x(k)zr(k)-toplam 
END DO 
END SUBROUTINE Gauss Yoketme Metodu 


Gauss-Jordan yoketme metodu için hazırlanabilecek herhangi bir algoritma Gauss yoketme 
metodun da gerçekleştirilen alt üçgensel matrisin sıfırlanması işlemini içerecektir. Bu nedenle 
algoritma da Gauss yoketme yöntemi için verilen algoritmanın sadece 7-11.ci aşamalarının 
aşağıdaki şekilde değiştirilmesi yeterli olacaktır. 


Je yn (<1) 2'e kadar 8.nci aşama tekrarlanır. 
8. Üst üçgensel matris sıfırlanırken sağ taraf vektörü i —( j—1)(—1)1'e kadar 
n—r—a, xr, şeklinde değiştirilir. 


9. Çözüm vektörü sağ taraf vektörüne eşittir ve j/—1(1)x'e kadar x; —r;,, alınır. 


Gauss-Jordan metodu için hazırlanan alt program Gauss yoketme metodu için verilen alt 
programda algoritma gereği yapılan değişiklikler burada verilmektedir. 


END DO 
! aşağıdaki kısım ilave edilecek 
DO j-n,2,-1 
DO i-(j-1),1,-1 
r(i)-r(i)-a(i,j)*r(j) 
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END DO 
END DO 
DO i-i,n 
x(i)zr(i) 
END DO 
END SUBROUTINE Gauss Yoketme Metodu 


Örneğin aşağıdaki denklem sistemini Gauss, Yoketme Metodu alt programını kullanarak 
çözen bir ana program oluşturmak istersek, 


PROGRAM Ornek3 


IMPLICIT NONE 

REAL, DIMENSTION(3) :: r-(/ 14., -9., -3. /), Xx, rr 

REAL, DIMENSION(3,3) :: a-RESHAPE( (/2., 1., 4., & 
—1., 5.; 2.5, 3.2, <2.ş <3. 4), (73,37) 

INTEGER :: i,i, n-3 


OPEN(3,FILEZ'Cikti.dat', STATUSZ'unknown') 
l 


rr>r ! Altprogramr'nin değerlerini bozacaktır 
CALL Gauss Yoketme Metodu(n,a,r,x) 
DO izl,n 
WRITE (3,10) (a(i,j),j#1,n),i,rr(i) 
END DO 
WRITE (3,15) 
DO izl,n 
WRITE (3,20) i,x(i) 
END DO 
10 FORMAT(2Xx,'|',3(2Xx,F5.1),'lI | x(',il, & 
a a) 
15 FORMAT(/2x, 'Denklem Sisteminin Çözümü'/) 
20 FORMAT(2Xx,' x(',i2,') — ',F5.2) 


END PROGRAM Ornek3 


Programının çıktısı 


I 2.0 —0..5 1.51 | x(1) 1x ( 14.01 
I 1.0 5.5 —0-6) | x(2) 1I> | —9-0) 
I 4.0 4.0 -6.51 | x(3) Iz I( -3.0) 


Denklem Sisteminin Çözümü 


x( 1) < 2.00 
x( 2) —-1.00 
x( 3) x 3.00 
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13.3 TERS MATRİS HESABI 


Bir A kare matrisinin tersi eğer matris tekil değilse mevcuttur; yani, det A #0. Matrisin 
tersini bulmak aynı lineer denklem sisteminin çözümüne benzemektedir. Buradaki tek fark 
sağ taraf vektörü yerine sağ tarafa birim matrisi yerleştirerek Gauss-Jordan yoketme 
metodunun uygulanmasıdır. İşlem tamamlandığında sol tarafta birim matris oluşurken sağ 
tarafta (yani, birim matrisin bulunduğu yerde) matrisin tersi oluşur. Bu işlemleri açıklamak 
için A kare matrisini aynı boyutlu birim matris ile beraber aşağıdaki şekilde yazalım. 


A &> â&zş aşı 0 00 
Ay) Az Aş 440 1 0 0 
d3, Az az a4|0 0 1 0 
day da Aş daş A0 0 0 | 


Şimdi Gauss-Jordan yoketme işlemine başlayalım. İlk önce birinci satırı a,, ile bölelim. 


1 ap az aşYbı, 0 0 0 
A3, A 3 aş) 0 1 0 0 
Az, Az az aş) 0 0 1 0 
Aşı Aş) Gaz Aş) 0 0 0 1 


Daha sonra birinci sütundaki matrisin diğer elemanlarını sıfırlamak için birinci satırı 
sıfırlanacak satır elemanı ile çarpıp o satırdan çıkartalım. 


la; a3 aşYbı, 0 0 0 
O a; a5 aa, 1 0 0 
O a a3 ab, O 1 0 
O ap aş aa by 0 0 1 


Bu işlem yapılır iken birim matrisin bulunduğu kısım da yoketme işleminin uygulandığı 
sütundaki elemanlar değişmektedir. Yok etme işlemi soldaki matris birim matris'e 
dönüşünceye kadar devam ettirildiğinde 


1 0 0 OYb, b, b, b, 
OL 0 Old, b, ba bi 
001 0J2b5, b, b, b. 
000 1k, b, b, bi 


elde edilir. Sağ tarafta oluşan ve elemanları b; ile verilen kare matris artık A matrisinin 


tersini oluşturmaktadır. 
Gauss- Jordan metodu ile ters matrisin bulunması için bir algoritma verilmektedir. 


1. Programa A matrisi temin edilir. 
2. Bbirimmatrisi /—1(1)n'e kadar b; —Ive b; — O alınarak oluşturulur. 


3. Je 1(1) n'e kadar p— y a ; alındıktan sonra her j için 4-6.ncı aşamalar tekrarlanır. 
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4. A matrisinin köşegenleri "1" yapılırken birim matris ve ana matrisin j'.nci 
satırlarındaki elemanlar & — 1(1) x'e kadar 


bi >bixp ve aj,-a,xp şeklinde değiştirilir. 
5. iz 1(1) n'e kadar T — a;, alındıktan sonra 6.ncı aşama her i için tekrarlanır. 


6. j.nci satırda yoketme işlemi uygulanırken hem A hem de birim matrisin 
elemanları k — 1(1) 2'e kadar 


bi —bi, —Txbi ve 4; Sdi, -Txa şeklinde değiştirilir. 


ÖRNEK 4: n.nci mertebeden bir kare matrisinin tersini Gauss-Jordan metodu ile hesaplayan 
altprogram. 


SUBROUTINE Jordan(n,a,b) 
IMPLICIT NONE 


INTEGER, INTENT(IN) :: n 

REAL, DIMENSION(n,n), INTENT(INOUT) :: a 
REAL, DIMENSION(n,n), INTENT (OUT) iile 
INTEGER :: i, j, k 

REAL :: p, t 


Bu alt program (nxn)'lik bir kare matrisin 
Gauss-Jordan metodu ile matrisin tersini hesaplar 


»**#n : Kare matrisin kenar boyutu (Girdi) 
»** a : Tersi aranan nxn'lik kare matris (Girdi) 
** b : nxn'lik matris a'nın tersi (Çıktı) 


UYARI! Bu program çıkışında A matrisi ve R sağ taraf vektörünün 
girişteki değerleri değişmektedir 


b(i,i)s1.0 ! Birim matris oluşturuldu 


DO j—1I,n 
pz1.0/a(j,j) 

DO k-I,n 
b(j,k)-b(i,k) 
a(lij,k)-a(j,k) 

END DO 

DO i-i,n 
t-a(i,j) 
IF(i--j) CYCLE 
DO k-I,n 

b(i,k)zb(i,k)-t*b(i,k) 
a(i,k)-a(i,k)-t*a(j,k) 
END DO 
END DO 
END DO 
END SUBROUTINE Jordan 


*p 
*p 
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ÖRNEK 5: Aşağıda verilen A matrisinin tersini (A-) Gauss-Jordan yöntemiyle hesaplayan 
ve Örnek 4”de verilen Jordan alt programını kullanan bir ana program yazınız. Program 
AAzI denklemini sağlayıp sağlamadığını kontrol etmesi istenmektedir. 


ı 2 —2 
A-|—2 1 1 
2>z 1 -I 


Daha önce verilen Gauss-Jordan algoritmasına göre hazırlanan Jordan isimli alt programını 
kullanan ana program aşağıda verilmiştir. 


PROGRAM Ornek5 
IMPLICIT NONE 


REAL, DIMENSION(3,3) :: a-RESHAPE( (/ 1., -2., 2., & 
—-2., 1., 1.,; —2., 1., —-1. /), (/3,3/)), birim, aa, c 
INTEGER :: i,j, n>3 


OPEN(3,FILEZ—'Cikti.dat',STATUSZ-'unknown') 
! 
WRITE (3,20) 'A' 
DO izl,n 
WRITE (3,10) (a(i,j),j21,n) 
END DO 
aa-a !AM'nın içeriği değiştiğinden sağlama amacıyla aa matrisinde saklanıyor 
! 
CALL Jordan(n,a,birim) 
! 


WRITE (3,20) 'Tersi' 


DO izl,n 
WRITE (3,10) (birim(i,j),j-1,n) 
END DO 
CALL mcarp(n,birim,aa,c) |! Sağlama yapılıyor 
WRITE (3,20) 'A.AN(-1)' 
DO izl,n 
WRITE (3,10) (c(i,j),j21,n) 
END DO 


10 FORMAT(5(2x,F9.5)) 
20 FORMAT(/2x,A,' matrisi") 
END PROGRAM Ornek5 


Programının çıktısı aşağıda verilmiştir 


A matrisi 


1.00000 -2.00000 -2.00000 
-2.00000 1.00000 1.00000 
2.00000 1.00000 —-1.00000 


Tersi matrisi 
033333 —0.66667 0.00000 
0.00000 0.50000 0.50000 
—0.66667 —0.83333 —0.50000 
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A.A”(-1) matrisi 


1.00000 0.00000 0.00000 
0.00000 1.00000 0.00000 
0.00000 0.00000 1.00000 


Görüldüğü üzere matris ile tersinin çarpımı birim matrisi vermektedir; yani bulunan ters 
matris hesabı doğru yapılmıştır. 


Mühendisler, hesaplarında çoğu kez matrislerle ve özellikle lineer denklem sistemlerinin 
çözümleri ile uğraşırlar. Bu matrislerin boyutları onlar, yüzler ve hatta binlerle ifade edilebilir. 
Bu matrisleri bilgisayara elden veya kütükten girmek oldukça zor ve zahmetlidir. Ancak 
matrislerin elemanları, çoğu kez matriste bulundukları satır ve sütunun indisleri ile, örneğin, 
4; ; 104(6 * j7)/200 gibi, belirli bir bağıntıya tabidirler. Bu bağıntıların bilinmesiyle, kısa 


bir program parçasıyla, arzulanan boyutta matrisler kolaylıkla oluşturulabilir. 


ÖRNEK 6: Aşağıda verilen matrisi, dışarıdan girilen herhangi bir n değeri için oluşturan ve 
ekrana yazdıran bir program yazınız. 


1 2 13 e İla) 
0 V2 13 — hn 
0 0 1/3 — In 
0 0 0 0 Un 


— -anxn 


Bu matrisi oluştururken yapılacak ilk ve en önemli şey, matrisin elemanları ile bulundukları 
satır ve sütun indisleri arasındaki ilişkiyi tespit etmektir. Gözlem ile bu ilişkinin 
Vj, jzi 
dij > Ee 
0, ji 
olduğu görülmektedir. Bu bağıntıya göre programı aşağıdaki şekilde oluşturabiliriz. 


PROGRAM Ornek6 
IMPLICIT NONE 
INTEGER, PARAMETER :: n-5 
REAL, DIMENSION(n,n) :: a 
INTEGER :: i, j 
! Matrisi oluştur 
DO i-i,n 
DO j—1,n 
IF(j>Zİ) THEN 
a(i,j)21.0/REAL(j) 
ELSE 
a(i,j)-0.0 
END IF 
END DO 
END DO 
! Matrisi yazdır 
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DO izl,n 
WRITE(*,10) (a(i,j),jz1,n) 
END DO 
10 FORMAT(10(1x,F6.3)) 
END PROGRAM Ornek6 


Program çıktısı 
1.000 0.500 0.333 0.250 0.200 
0.000 0.500 0.333 0.250 0.200 
0.000 0.000 0.333 0.250 0.200 
0.000 0.000 0.000 0.250 0.200 
0.000 0.000 0.000 0.000 0.200 


olarak elde edilir. 


13.4 BİR BOYUTLU MATRİSLER 


İndisli değişkenler kullanırken, gerek tek boyutlu gerekse daha fazla boyutta, gereksiz bellek 
kullanımına gidilmemelidir. Örneğin bir programda kullanılacak indisli değişken boyutu, 
DIMENSTON deyiminde bildirilen, maksimum sınırı aşmamalıdır. 


İki ve daha fazla indisli değişkenlerde, örneğin matrislerin tanımında, her hangi bir (ij) 
değerine ulaşmak tek indisli bir () değerine ulaşmaktan daha fazla zaman gerektirir; bu 
durum bilgisayarın çok indisli değişkenleri bellekte tek indisli değişken gibi saklı tutmasından 
kaynaklanmaktadır; yani nxm boyutlu bir A matrisinin elemanları bellekte 4,,,4,,,...,a 


*2 “n123 
44354))5. A3 5. Aş Aç. A, Sırasıyla saklanmaktadır. Matrisin herhangi bir elemanına 


nm 


erişmek için bu tek sıranın nerede olduğu bulunduktan sonra o sıradaki bilgiye erişilir. 


Bu nedenle biz de matrisi #xm boyutunda tek indisli bir değişken olarak atarsak; yani 
4,,4,,4,,... 4, , bu durumda k—i*(j—I)m şeklinde alındığı takdirde herhangi bir i, j 
çiftiyle tanımlanan matris elemanı a, 'yı verir. Burada £ ile verilen ifade matrisin bellekteki 
diziliş sırasını vermektedir. 


Aşağıda boyutu nxnolan iki matris (A ve B)'nin programa okutulması ve çarpımını (A XB ) 
içeren bir program tek indisli değişkenler cinsinden verilmektedir. 


PROGRAM mcarp 
IMPLICIT NONE 
!  A,B Matrisini kütükten Oku N'in Max Değeri 50 olabilir. 


REAL, DIMENSION(2500) :: a, b, c 
INTEGER :: i,j,k,n,n2,k1,k2,k3 
READ(5,*) n 

n2>n*n 


! A veB matrislerini Oku 
READ(5,*) (a(k),k-1,n2) 
READ(5,*) (b(k),kz21,n2) 
I CZAXxB'yihesapla 
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DO i-iI,n 
DO j-I,n 
k1-i*(j-1)*n 
c(k1)-0.0 
DO k-i,n 
k2-i11(k-1)*n 
k3-k*(j-1)*n 
c(k1)—>c(k1) ta(k2) *b(k3) 
END DO 
END DO 
END DO 
! C'yi ekrana yaz 
DO izl,n 
WRITE (6, *) (c(it(j-1)*n),j-1,n) 
END DO 
END PROGRAM mcarp 


ALIŞTIRMALAR 


13.1 Aşağıdaki şekilde verilen Üç Köşegenli matris sistemini Gauss yoketme tekniği ile 
çözmek için (i) bir Algoritma hazırlayınız (Bu Algoritma sıfırlı elemanlarla işlem 
yapmasın) (ii) Bir Fortran alt programı yazınız. 


d a 0 0 0 Xı cı 
b, d; d; 0 Me 0 X3 C) 
0 b d, a, 0 » )| | e 
0 0 ni bu dı; Ayı Xn-1 Cn 
0 0 0 b X Cc 


13.2 Aşağıdaki şekilde verilen üç köşegenli matris sistemini Gauss yoketme tekniği ile 
(13.1)'deki soruda yazdığınız programı kullanarak çözünüz. 


Zİ dd du (5 
SI 0 Ol) İi5 
o 1 2 1 ola l |i5 
0 0 m ei 
0 0 e e 


(Bazılarının cevapları: x, > 6.4091, x, -25.0456, x, —16.2728 ) 


133 N»xN boyutundaki bir A matrisinin simetrik olup olmadığını kontrol eden bir program 
yazınız. 


134 N»xN boyutundaki bir A matrisinin transpoz'unu veren bir program yazınız. 
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13.5 


13.6 


13.7 


13.8 


13.9 


291 


Bir A(N xN ) matrisinin köşegeninin üstünde kalan elemanlarının ortalamasını veren 


bir program yazınız. 


Aşağıda verilen A ve B matrislerini (i) en genel şekilde (herhangi bir N değeri için) 
kuracak ve (ii) matrisleri kurduktan sonra çarpımını hesaplayacak (C—AXxB ) ve (iii) 
çarpım matrisini ekrana yazdıracak bir program yazınız. NOT: Program, matris çarpma 
işlemini yapmak için bir SUBROUTINE içermelidir. 


1 1 ıl 1 V 0 0 0 0 
1 2 3 » NN b 0 0 0 
ii © N iğ 4 , 
as) i “>” 1 2 3 0 0 
1 2 3 N rı 2 . a 0 
1 JN1 3N-1 NI i gm zma y yi 
Aşağıdaki matrisleri oluşturan program parçalarını yazınız. 
1 —4 1 0 abii 0 b, d; d; 0 e? 0 
VD ği 3) ve 
O 0 2 -4 | 0 0 bu, duş, ayı 
v © se W 1 a. 0 0 — 0 De dl 


a; —b; zi ve d;, -—(2i4(14i/n)/n) olarak verilmektedir. 


VERI.DAT isimli bir kütükten sırasıyla matris boyutu N ve matrisin elemanları girilen 
(a; ) bir A matrisi için aşağıdaki şekilde tanımlanan matrisel işlemi yapan bir Fortran 
programı yazılmak isteniyor. Bu işlem yapılırken A? matrisinin hesabını bir 
SUBROUTINE ile hesaplayıp sonuç D matrisini ekrana yazdıran programı yazınız. 
NOT: Burada I birim matrisi göstermektedir. 


D-2-AKA! 


VERI.DAT isimli bir kütükten sırasıyla N boyutlu bir A matrisinin önce boyutunu 
sonra elemanlarını okuyup, her satırını, o satırın mutlak değerce en büyük elemanının 
mutlak değerini alıp, bu değere bölerek oluşacak yeni matrisi veren bir program yazınız. 


13.10 nxnboyutlu A ve B matrislerini MATRIS.DAT isimli kütükten okuyan ve aşağıdaki 


işlemleri yapan bir program yazınız. o Modüler programlamaya mümkün olduğunca 
özen gösteriniz. 


A 'xBxAxB' 


13.11 Yukarıdaki problemi, işlemleri tek indisli değişken kullanarak hesaplayan bir program 
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yazınız. 


13.12 Bir A matrisinin elemanları için aşağıdaki ifadeyi hesaplayan bir program yazınız. 
Matrisin kare ve boyutunun n olduğunu varsayınız. 


n n 
2.2.4 
A j2l 


13.13 (13.6) ile verilen soruda verilen A ve B matrislerini esas alarak ve aşağıda verilen 
x-(LW2.Y3,...YN) 
x vektörü kullanarak, aşağıdaki işlemleri yapan bir program yazınız. 
(A — B) x—İx 
NOT: 1 matrisinin birim matris olduğuna dikkat ediniz. 
13.14 Bir A matrisinin elemanlarının O ila 2 arasında değiştiği biliniyor. Matrisi bilgisayara 
VERI.DAT isimli kütükten okuyan, elemanları okudukça değerinin belirtilen aralıkta 


olup olmadığını kontrol eden; daha sonra elemanlarının ortalamasını ve standart 
sapmasını hesaplayan bir program yazınız. 


13.15 Bir matrisin her satırdaki elemanlarının mutlak değerce toplamını hesaplayıp, bu 
değerleri bir vektörün o satırdaki değerine atayan bir program yazınız. 


13.16 Aşağıda şekilde verilen A matrisini kuran ve bu matris için A? ve A? matrislerini 
hesaplayan ve A matrisi ile beraber ekrana yazan bir program yazınız. Not: Matris, 
atama deyimleri şeklinde girilmeyecektir. Bir matrisin çıktısını veren bir YAZDIR 
isimli SUBROUTINE hazırlayınız ve bunu kullanınız 


ı 2 3 4 5 

—> 1 2 3 4 
A-/(3 —> 1 2 3 
—a a3 —> 1 2 


5 A 3 — -1 


13.17 Aşağıdaki şekilde verilen A ve B matrisleri için 


1 0 00 5 | O. & 05 
1 2 02 5 O 1 0 30 
Az-|I 0 3 0 5|(| Bx|-3 0 1 0 3 
1 40 4 5 O —3 0 10 
1 000 5 > 0 3 0 1 


aşağıda verilen matris denklemini hesaplayan bir program yazınız 


A'x(B—A)x(A4B)xB' 


BÖLÜM 14 


İNTEGRAL HESAP 


14.1 YAMUKLAR KURALI 


f (3) fonksiyonu a<xsb aralığında integre edilebilir bir fonksiyon olsun ve f(x) 


fonksiyonunun belirtilen aralıkta belirli integralinin hesaplanmasını arzu edelim. 
b 
1— İ f ()dx 
Bu la.b| aralığını genişliği 7 olan N eşit parçaya bölelim. Bu durumda aralık genişliği, 


h—(b—a)/'N ifadesinden hesaplanır. 


Bu fonksiyon ve oluşturulan alt aralıklar Şekil 14. 1'de verilmektedir. Şimdi Şekil 14.1'deki 
gibi sadece iki alt aralığı göz önüne alalım. Burada /. ,, f., f, noktaları birer doğru ile 


birleştirildiklerinde bu doğrular ile / (x) fonksiyonuna bir yaklaşımda bulunulmuş olup, 
doğrular f(x) için x; , ile x; ve y ile &x;, aralıklarında basit interpolasyon polinomları 


olarak hizmet ederler. Doğruların altında kalan alanları (yamukların alanlarını) hesaplarsak, 
/ İth 
A,— x)dazh -—— 
2 İ arena 
ve 
Ağa > | fla)jdız ys la) 


yazılabilir. 


Şekil 14.1 x; civarında yamukların oluşturulması. 
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X;ş ile x;,, aralığında fonksiyonun integrali bu iki yamuğun alanları toplamına eşittir. 


Xi 


e xİdx AA İ f Di x)dx 


XI XI 
Yukarıdaki denklemlerin yardımıyla Wi aşağıdaki şekli il 


İn belle Zf 42444 fa) 


“1 


Bu son denklemi bütün Ni aralıklara ii, genişletilmiş Yamuklar kuralı yaklaşımı, 
İrem alhr2pr2p4. ZİNA KİN) 
veya seri toplamı sekiz 
b h N-—I 
rope na 425. 1) 
a izl 
olarak yazılabilir. Burada /, — /(a) ve f, — f (b) 'yi ifade etmektedir. 


ÖRNEK 1. Aşağıdaki integrali (0,1) aralığını 5 eşit parçaya bölerek ve Yamuklar Kuralı ile 


hesaplayınız. Bu integral değerini analitik integral değeri ile karşılaştırınız. 
l 


3 
fx 43) dx 
0 
Bu integrali hesaplamak için ilk önce aralık genişliğini saptayalım, aralık 
genişliği h-(b—a)/N ifadesinden /h-1/5-0.2 bulunur. Aralığın beş eşit parçaya 


bölünmesi sonunda altı nokta ve bu noktalara ait fonksiyon değerlerinin bilinmesi gereksinimi 
ortaya çıkar. 


Fonksiyonun değerlerini aralık içinde 0.2'lik artırımlar için hesaplayalım. Daha sonra, x,'ler 
ve f,'leri hesaplayalım. Hesaplanan bu değerleri Tablo 1.”deki gibi bir tabloda toparlayalım. 


Tablo | 'de fonksiyon değerlerinin yanısıra son sütundaki değerleri de verilmiştir. Dolayısıyla 
son sütundaki toplam integral ifadesindeki köşeli parantez içinde yer alan ifadeye eşittir. Yani 


4 
İk fs 425 f, <223.16672 


izl 
Daha sonra, bu değeri integral formülünde yerine koyarsak, 


0.2 


İntegral -(223.16672)- —(223.16672) - 22.316672 


bulunur. 


Integralin gerçek değeri 21.875 olduğuna göre yapılan mutlak hata ((21.875-22.316672)) 
0.441672 dir. 
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Tablo 14.1 Örnek | ile verilen problem için hazırlanan tablo. 


X fh işlem Sonuç 
0.00 0.00000 1xf,- 0.00000 
0.2 5.61890 2xf,5 11.23780 


0.4 12.62180 2xf,- o 25.24360 
0.6 22.795986 o 2xf/,- 45.51972 
0.8 38.558280 2xf,- o 77.16560 
10 64.000000 Ixf#- 64.00000 

Toplam 223.16672 


UL BLM Ro o. 


Buradaki aralık sayısını (yani N değerini) artırarak daha hassas integral değeri elde edilir; 
çünkü aralık sayısının artmasıyla oluşturulan yamukların sayısı artırılır. Bu da eğri altında 
kalan alanın daha gerçekçi hesabına neden olur. 


Aralık sayısı 10, 20, 50 ve 100 olarak alındığında hesaplanan integral değerleri sırasıyla 
21.9857, 21.9027, 21.8794 ve 21.8761 olmaktadır. Görüldüğü üzere aralık sayısının 
artmasıyla integral değeri gerçek değer olan 21.875 değerine yaklaşmaktadır. 


ÖRNEK 2: Yamuklar kuralı ile bir f (x) fonksiyonunun |a,b) aralığındaki belirli integralini 


hesaplayan programı. 


MODULE bir 
CONTAINS 
REAL FUNCTION £(x) 
REAL, INTENT(IN) :: x 
f—x* (X*x13.) **3 
END FUNCTION £ 
END MODULE bir 


PROGRAM Yamuklar Kurali 


YAMUKLAR KURALI İLE İNTEGRAL HESABI YAPAN PROGRAMDIR. 
f(x) : İNTEGRALİ HESAPLANACAK FONKSIYON 
MODULE alt program olarak verilmiştir. 


n : EŞİT ARALIK SAYISI 
h : ARALIK GENIŞLİĞİ 
a,b : INTEGRAL SINIRLARI 
USE bir 
IMPLICIT NONE 
REAL :: h, topla, integral, a-0.0, b-1.0 
INTEGER :: i, n100 
ı 
h>(b—a) /REAL(n) ! hz(b—a)in 


integral-0.5*(£(a) 1£(b)) 
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DO i-1,n-—1 


N-I 
toplaztopla * £(ati*h) ! > fasih) 
izl 
END DO 
integral-(integralttopla)*h 
WRITE(*,50) integral 
50 FORMAT(/5X, 'Yamuklar Kuralı ile integral ',f12.7/) 
END PROGRAM Yamuklar Kurali 


14.2 SİMPSON KURALI 


Simpson kuralı ile integral işleminde, her bir alt aralık bir doğru yerine o aralık için bir 
parabol ile birleştirilerek, parabol altında kalan alan hesap edilir. Bu kısımda simpson 
formülünün türetilmesinden ziyade sonucunu yazıp bunu kullanacağız. 


h N—I N-2 
iş fot fn 4D p12X fi (14.1) 
MM 7 


Denklem (14.1) ile verilen bu formül Ja.b) aralığını kapsar. Bu denklemin programlandığı bir 


program, Örnek | için hazırlanmıştır. Bu program, aritmetik deyim fonksiyonu değiştirilerek 
başka fonksiyonların integralinin hesaplanmasında, pekala, kullanılabilir. 


ÖRNEK 3: Herhangi bir f(x) fonksiyonunun integralini (a, b) aralığında belirli integralini 
hesaplayan FORTRAN Programı. 
Örnek 2'de verilen MODULE bir bu programda da aynen kullanılmaktadır. 


PROGRAM Simpson Kurali 


SİMPSON KURALI İLE İNTEGRAL HESABI YAPAN PROGRAMDIR. 
f(x) : İNTEGRALİ HESAPLANACAK FONKSİYON 
MODULE alt program olarak verilmiştir. 


n bi EŞİT ARALIK SAYISI 
h : ARALIK GENİŞLİĞİ 
a,b : INTEGRAL SINIRLARI 
USE bir 
IMPLICIT NONE 
REAL :: h, x, toplamı, toplam2, uclar, integral 
REAL :: a-0.0, bzl1.0 
INTEGER :: i, ns5l1 
l 
h-(b—a) /REAL(n) Iı hz(b—a)/n 


toplamlI- 0.0 
toplam2- 0.0 
uclar f(a) t£(b) 
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! Tekindislilerin toplamı 
DO i-1,n-1,2 
x-ati*h 
toplamli-toplamlı * £(x) 
END DO 
!  Çiftindislilerin toplamı 
DO i-2,n-2,2 
x-ati*h 
toplam2-toplam2 t £(Xx) 
END DO 
integralsh* (uclart4.0*toplam1*2.0*toplam2) /3.0 
WRITE(*,50) integral 
50 FORMAT(/5X,'Simpson Kuralı ile integral — ',f12.7/) 
END PROGRAM Simpson Kurali 


Bu program çalıştırıldığında N—6 için elde edilen değerin 21.8782 olduğu görülecektir. Bu 
değer yamuklar kuralı ile ve N—50 için hesaplanan değerden daha iyi bir sonuçtur. N-10 ve 
20 için elde edilen integral değerleri sırasıyla 21.87541 ve 21.87505 olmaktadır. N-20 için 
neredeyse analitik olarak hesaplanan değer hesaplanmaktadır. 


Sonuç olarak integral hesabında Simpson metodunun Yamuklar metodundan daha hassas 
olduğunu söyleyebiliriz. 


ÖRNEK 4: Aşağıda verilen iki katlı integrali Simpson kuralı ile integralini hesaplayan bir 


program yazınız. 
11 


| İ sin(x? 4 y? )dydır 

x-0 yz-I 
Sözkonusu integrali hesaplayan bir program yazmadan önce bu sayısal işlemi nasıl 
yapacağımızı belirleyelim: 


fı l 
İ | sin(42 ala - | gl)dx 
Xx20 | ye-l x-0 

Yukarıda parantez içinde yer alan y üzerinden integral hesaplandığında geriye sadece x 
üzerinden integral kalacaktır. Bu nedenle, iki kez Simpson kuralını aşağıdaki şekilde 


uygulayacağız. 


1 Ax nx—İ nx—2 
| atddrz— | 8018x142 8112) 8 
5 di 
burada 
I Ay ny—İ ny—2 
8i- | fav zl feth 42 fşt2X hş 
ys-I JA jZ2 
tek çift 
ve 


fu > fa yp) zsinaf 4 v3) 
olarak alınmıştır. 
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PROGRAM Ornek4 


IMPLICIT NONE 
INTEGER, PARAMETER :: nx-20, ny-40 
INTEGER :: i, j 
REAL, DIMENSION(0:nx) :: Xx, İXx 
REAL, DIMENSION(0:ny) :: y, f£fy 
REAL :: a-0.0, bz1.0, cs-I., del. 
REAL :: dx, dy, integral, FXY 
| 
dx—(b—a) /REAL(nx) Il Axz(b—a)/nx 
dy-(d-c) /REAL(ny) o! Ay—(d-c)/ny 
DO i-0O,nx 
x(i)satREAL(i) *dx l yzasiâx 
DO j-0,ny 
y (j)-ctREAL(j)*dy ! y,-c*tjAy 
£y(İj)-FXY(x(i),y(İ))! gj> fly) 
END DO 
CALL Simpson Kurali(ny,dy,fy,fx(i)) ! g”ler 
END DO 
CALL Simpson Kurali(nx,dx, fx,integral) ! (ed 


! Sonucu yazdır 
WRITE(*,*) integral 
END PROGRAM Ornek4 


REAL FUNCTION FXY(x,y) 

IMPLICIT NONE 

REAL, INTENT(IN) :: x, y 
FXY-SIN (xX*x*y*y) 

END FUNCTION FXY 


SUBROUTINE Simpson Kuralif(n,h,fonk,integral) 
IMPLICIT NONE 
Simpson kuralına göre integrali hesaplayan 
Alt Programdır. 


h : Aralık genişliği 
fonk : Fonksiyon değerleri, i-O,n 
integral : İntegral değeri 


l 
l 
! 
! n : Aralık sayısı 
l 
l 
l 
ı 


REAL, DIMENSION(0:n), INTENT(IN) :: fonk 


REAL, INTENTI(IN) :: h 

INTEGER, INTENTI(IN) :: n 

REAL, INTENT(OUT) :: integral 
REAL :: toplaml, toplam2, uclar 
INTEGER :: i 


ı 
uclarzfonk (0) t#fonk(n) 
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!  Tekindislilerin toplamı 

toplam1-0.0 

DO iz1l,n-1,2 
toplamli-toplamltfonk(i) 

END DO 

! Çiftindislilerin toplamı 

toplam2-0.0 

DO i-2,n-2,2 
toplam2-toplam2tfonk(i) 

END DO 

integral-h* (uclart4.0*toplam1*2.0*toplam2) /3.0 

END SUBROUTINE Simpson Kurali 


Programını çeşitli aralık sayıları için alıştırdığımızda aldığımız sonuçlar aşağıdaki Tablo 
14.2'de özetlenmiştir. Her integral değişkeni için aralık sayısı artırıldığında, integralin önce 
ilk üç sonra ilk dört ve en sonunda nx-50 ve nyz100 için ilk beş basamağının sabitlendiği, 
yani yakınsadığı, görülmektedir. 


Tablo 14.2 Örnek 4'de verilen problemin farklı aralık sayıları için sonuçları. 


nx ny Integral 
5 5 0.59582 
10 10 112232 
10 20 1.12255 
20 20 1.12256 
50 100 1.12258 


143 GAUSS-LEGENDRE KUADRATÜRLERİ VE İNTEGRASYONU 
Gauss-Legendre kuadratürleri Legendre polinomlarının köklerininin absis ve ağırlıklarının 
hesabına dayanan bir kuadratür yöntemidir. Legendre polinomlarının genel formu 


1 gd” 


“Anlde" 


P,(3) (2-1, n>0 


ile verilir. (4) 1, A(0)>x, BP ()> Gr —)/2.,.. şeklinde türetilebilir. 
N-nokta Gauss-Legendre integrasyonu 


I N 
| fade wi fl) 
—-İ izl 


olarak tanımlanır. Burada x; (absisler) ve w; (ağırlıklar) çiftine Gauss-Legendre kuadra- 
türleri adı verilir. x; ler, Py(X) 0 polinomunun kökleridir. w; ağırlıkları da 
5 21-4) 
m 
İNPy Ca) 


bağıntısından hesaplanır. Ancak absis ve ağırlıklar (-1,1) aralığında integral alma işlemine 
uygundur. Bu kuadratürleri (a,b) aralığında integral alma işlemi için uyarladığımızda 
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olarak değiştirilmelidir. 


Gauss-Legendre kuadratürlerin (-1,1) aralığı için hesaplayan bir algoritma aşağıda verilmiştir: 


SUBROUTINE Gauss, KURALI(n,Xx,w) 
IMPLICIT NONE 


INTEGER, INTENT(IN) :: n ! Nokta sayısı 


(-1,1) aralığı için n-Nokta Gauss-Legendre 


Kuadratürlerini hesaplayan alt programdır 


REAL, DIMENSTION(N), INTENT (OUT) :: x ! Kuadratür absisleri 
REAL, DIMENSTION(N), INTENT (OUT) :: w ! Kuadratür ağırlıkları 
REAL :: pi, el, x0, t, pk, pkl, pkmi, tl, 
den, dpn, u, v, h, p, dp, fx, d2pn, d3pn, 
d4pn, pkpl 
INTEGER :: i, m, k, mi, ii, mf 
pi - 4.0 * ATAN(1.0) 
m — (n11)/2 
el - REAL(n*(nt1)) 
DO izl,m 
t - (4.*i-1.)*pi/(4.*n12.) 
xO (1.0-(1.0- 1.0/n)/(8.0*n*n) ) *COS(t) 
pkm1- 1.0 
pk >— x0 
DO k>2,n 
t1 - x0 * pk 
pkplI >< tl —- pkml —(t1i-pkml) /REAL(k) $#t1 
pkml —- pk 
pk -— pkpl 
END DO 
den >— 1.0 — xO0 * x0 
dI —n * ( pkml -— x0 * pk ) 


dpn —dlI / den 

d2pn < (2.0*x0*dpn-—el*pk) /den 

ddpn — (4.0*x0*d2pn1t(2.0 —el) *dpn) /den 
d4pn <— (6.0*x0*d3pnt(6.0 —el) *d2pn) /den 
u - pk / dpn 

v - d2pn / dpn 


h > —-u*(1.01.50*u* (vtu* (v*v—u*d3pn/(3.0*dpn) ))) 
p > pkth* (dpnt.50*h* (d2pnth/3.0* (d3pnt.25*h*d4pn) ) ) 
doz dpn $# h * (d2pnt.50*h* (d3pn*th*d4pn/3.0)) 


hs h - p/dp 


x(i) > x0 th 

fx-dI-h*el* (pkt.5*h* (dpnth/3.*(d2pnt.25*h* (d3pnt& 
0.2*h*d4pn)))) 

w(i) > 2.0*(1.0-x(1i) *x(i1)) /(£x*£x) 


END DO 
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IF(mtm>n) THEN 


x(m) — 0.0 
mf -— m — 1 
ELSE IF (mtmsxn) THEN 
mf z— m 
END IF 
DO izl,mf 
x(i) — —x(i) 
END DO 
DO izl,mf 
mi sm t i 
ili sm-i tl 
IF(mf——m—-1) ii — m-i 
x(mi) —-x(ii) 
w(mi) — w(ii) 
END DO 


END SUBROUTINE Gauss KURALI 


14.4 İNTEGRAL YÖNTEMLERİNİN KUADRATÜR FORMUNA 
DÖNÜŞTÜRÜLMESİ 


Bütün integral yöntemlerini aşağıdaki kuadratür formunda yazmamız mümkündür: 


b N 
| Fdd Y fa) 
izl 


Xzad 


Burada yönteme uygun kuadratürlerin tesbiti önemli olmaktadır. 


N-nokta yamuklar kuralında (N —I aralık) 
b 
| faldrz? fajalfla Mapası) afla YAZ 10) 


olarak belirtilebildiğinden genel kuadratür formuyla kıyaslama yaparak 
o b—a h 2sisN-l 


hz , 
N-—I h/2 izlveizN 


Xx zatk(i-lh, w; -İ 


olduğu görülür. Aynı şekilde N-nokta Simpson kuralı için 
h/3 izl ve iZzN 
h- 7 wzas(i-Dh, w-İ4M3 o i-2,4.6,.. 
2h/(3  i—3,5,7,... 


olarak yazılabilir. 
ÖRNEK 5: Yamuklar, Simpson ve Gauss-Legendre yöntemlerine göre herhangi bir (a,b) 


aralığında N-integrasyon noktası kullanarak kuadratür absislerini ve ağırlıklarını getiren bir 
program yazınız. 


Yukarıda bahsedilen kuadratürleştirme formülasyonlarının programlanmasından ibarettir: 
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SUBROUTINE KUAD(tip, n, a, b, X, w) 

! (a,b) aralığında integral almak için çeşitli integral 
!I yöntemlerine göre kuadratürleri hesaplayan alt 

! programdır 

! Tip-0O Yamuklar, Tip-1 Simpson, Tip-2 Gauss-Legendre 


IMPLICIT NONE 
INTEGER, INTENT(IN) :: Tip ! Yöntem tipi 
INTEGER, INTENT(IN) :: n ! Nokta sayısı 
REAL, INTENT (IN) :: a, b ! İntegrasyon aralığı 
REAL, DIMENSION(N), INTENT(OUT) :: x ! Absisler 
REAL, DIMENSTION(N), INTENT(OUT) :: w ! Ağırlıklar 
INTEGER :: i ! İndis değişkeni 
REAL :: h ! Absilerin aralık genişliği 
SELECT CASE (Tip) 
CASE (:-1) 
PRINT*, ' Nokta sayısı NEGATİF olamaz!' 
CASE (0) ! Yamuklar kuralı 
h- (b—a) /REAL(n-1) 
x(1) za 
DO iz2,n 
x(i)zx(i-1)*th 
w(i)zh 
END DO 


CASE (1) ! Simpsonkuralı 
h- (b—a) /REAL(n-1) 
DO izl,n 
x(i)-at(1i-1) *h 
END DO 
DO iz2,n-1,2 
w(1)34.0*h/3.0 
END DO 
DO i-3,n-2,2 
w(1)352.0*h/3.0 
END DO 
w(1)2h/3.0 
w(n)h/3.0 
CASE (2) ! Gauss-Legendre kuadratürleri 
CALL Gauss KURALI(n,x,w) 
DO izl,n 
x(1)20.5*(b—-a) *x(1i)10.5*(bta) 
w(i)20.5*(b—a) *w(i) 
END DO 
CASE DEFAULT 
PRINT*, 'Yöntem tanımlanmamış...!' 
END SELECT 
END SUBROUTINE KUAD 
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ÖRNEK 6: Aşağıda verilen fonksiyonun nümerik integralini Yamuklar, Simpson ve Gauss- 
Legendre yöntemlerini kullanarak hesaplayan bir program yazınız. Yamuklar ev Simpson 
yöntemlerinde 21 nokta, Gauss-Legendrede ise 5 nokta kullanınız. 


e 
İm 


Öncelikle integrali alıncak fonksiyonu FUNCTION olarak tanımlamak gerekir. Daha sonra 
Örnek 4'de verilen KUAD programında Tip için değerler değiştirilerek integral hesaplanabilir. 
Bu programda Gauss KURALI isimli alt programdan da yararlanılmıştır. 


PROGRAM kuadraturler 
IMPLICIT NONE 
REAL, DIMENSION(21) :: x, w 
INTEGER :: i, nz21 
REAL :: az0.0, b-1.0, topl, £ 
CALL KUAD(0O,n,a,b,x,w) ! Tip-O Yamuklar Kuralı 
top1-0.0 
DO i-lI,n 
topl-topltw(i) *£(x(i)) 
END DO 
PRINT*, 'integral (yamuklar kuralı)-',topl 
CALL KUAD(1I,n,a,b,x,w) ! Tipzli Simpson Kuralı 
top1-0.0 
DO i-l,n 
topl-topltw(i) *£(x(i)) 
END DO 
PRINT*, 'integral (Simpson kuralı) -',topl 
n-5 
CALL KUAD(2,n,a,b,x,w) ! Tip-2 Gauss-Legendre Kuad 
top1-0.0 
DO i-l,n 
topl-topltw(i) *£(x(i)) 
END DO 
PRINT*, 'integral (Gauss—Legendre) -',topl 
END PROGRAM kuadraturler 


REAL FUNCTION £(x) 
REAL, INTENT(IN) ::x 

İ—EXP (X*X) / (14Xx*x) 
END FUNCTION £ 


Programının çıktısı 
integral (yamuklar kuralı)- 1.07623792 


integral (Simpson kuralı) - 1.07595527 
integral (Gauss—-Legendre) - 1.07595479 


olarak elde edilir. 
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Her üç yöntemle farklı nokta sayıları kullanılarak hesaplanan integral değerleri Tablo 14.3”de 
verilmiştir. Bu tablodaki değerler incelendiğinde nokta sayısı artırıldığında integral değeri, 
gerçek değere yakınlaştığını, basamak doğruluğunun arttığını gözleriz. En az nokta sayısı 
kullanarak gerçek integral değerine en yakın sonuç veren yöntem Gauss-Legendre kuadratür 
yöntemidir. Üç-nokta Gauss-Legendre kuadratürleri ile integral 3 basamak doğrulukla elde 
edilmiştir ki elle hesaplanacak kadar basitlik sağlar. Yamuklar ve Simpson yöntemleri 
arasında bir kıyaslama yaptığımızda Simpson yönteminin Yamuklar kuralına göre daha iyi 
sonuçlar ürettiğini görmekteyiz. 21 nokta kullanıldığında Yamuklar iki basamak doğruluk 
sağlarken Simpson kuralı 5 basamak doğruluğa ulaşmıştır. Bunun nedenlerine Nümerik 
Analiz dersinde değinilecektir. 


Tablo 14.3 Değişik nokta sayıları için yöntemlerin performansı. 


N Yamuklar Simpson N Gauss-Legendre 
6 1.080461 1.0713601 2 1.0746690 

11 1.077086 1.0759608 3 1.0758653 

16 1.076458 1.0751362 4 1.0759559 

21 1.076238 1.0759553 5 1.0759548 


ALIŞTIRMALAR 


14.1 Aşağıdaki şekilde kesikli dağılımı verilen fonksiyonun integralini yamuklar kuralı ve 
Simpson kurallarına göre hesaplayınız. 


i 0 1 2 3 4 5 6 7 8 
x 10 1.25 1.550 1.75 20 225 2.550 275 3.0 
f, 10 1.58 3.74 4.88 8.57 8.32 7.36 796 8.84 


14.2 Aşağıdaki şekilde kesikli dağılımı verilen fonksiyonun integralini, yamuklar kuralı ve 
Simpson kurallarına göre integralini hesaplayan program yazınız. 


İ 0 1 2 3 4 5 6 


Xi 0.50 0.65 0.80 0.95 1.10 1.25 1.40 
f, 1.6487 1.9155 2.2255 2.5857 3.0041 3.4903 4.0552 


İ (14 ff) 
0.5 
14.3 Aşağıdaki integralleri hesaplayan programlar yazınız. 
0.8 


(a) İ e “dx (b) İln(5—4cosa)dx 
0 0 


14.4 Aşağıdaki şekilde verilen fonksiyonu herhangi bir x ve n değeri için hesaplamak 
istiyoruz. Bu integrali aralığı 20 eşit parçaya bölerek ve yamuklar kuralını kullanarak 
hesaplayan bir program yazınız. 


W, - — | sin (n0— xsin 0)40 
“ 
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14.5 Aşağıdaki integrali, integral sınır değerlerini sonlu olacak şekilde uygun bir dönüşüm 
yaptıktan sonra değişik aralık sayısı için yamuklar kuralını kullanarak hesaplayan bir 
program yazınız. 


To yed 
ha — 
| X 
14.6 Herhangi bir x değeri için Z yi hesaplayan bir program yazınız. U ile verilen serinin 


hesabında, serinin hata mertebesi 10'den küçük olsun. Ayrıca V ile gösterilen integrali 
de Simpson kuralına göre aralığı 50 parçaya bölerek hesaplayınız. 


2 3 5 m © n 
e ei e ep e İ - 
2 3 4 5 ml an kl 
v-| lu Md 
ii * UV 


14.7 Aşağıdaki şekilde verilen fonksiyonu belirtilen limitler için hesaplamak istiyoruz. Bu 
integrali, aralığı 100 eşit parçaya bölerek, Simpson kuralı ile hesaplayan bir program 
yazınız. 


5 
Y-| vi 
yi 
14.8 Matematikte sıkça kullanılan bir fonksiyon da hata fonksiyonudur ve aşağıdaki integral 
ile tanımlıdır. 


erf (x) — Fera 
0 


Herhangi bir x değeri için hata fonksiyonunun; yani erf(x)'in, değerini hesaplayan bir 
program yazmak için (a) algoritma hazırlayınız, (b) akış şeması çiziniz ve (c) Fortran 
programı yazınız, integral yöntemi Yamuklar ve Simpson kurallarından birini 
seçebileceğimiz şekilde hazırlansın ve her bir yönteme göre integral hesaplayan 
SUBROUTINE'ler oluşturulsun. 


14.9 Aşağıdaki integrali yamuklar kuralına göre herhangi bir M için hesaplayan bir program 
yazınız. 
wi sec xdx 


İl I*tanx 


14.10 Bir elektrik devresinde belirli bir şekilde dalga şekli üretmek arzu edilir. Bir dalga şekli 
f (4) aşağıdaki şekilde verilmiş olsun. 


ONE Ki —50<1<50 


0, —100<1<-50, 501100 


Dalga periyodu 7'nin 200 olduğu aşikardır. Dalga şekli Fourier serisinin ilk 10 terimi 
ile ifade edilmek istenmektedir. 


9 
f (0) za, *2X'a; cos (kort) 
kzl 
burada o—27/T ve a, katsayıları da 
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Tp 


üs | #cos(kor)di; k—0,1,2,3,... 
0 


2 
v 
olarak verilmektedir. Yazacağınız bir altprogram a,,4,,...,a, katsayılarım Simpson 
kuralı ile aralığı 100 eşit parçaya bölerek hesaplasın. 


14.11 Yukarıdaki problemde herhangi bir / anında / (4) dalga şeklinin değerini Fourier serisi 


ile hesaplayan ve analitik olarak verilen değerlerini ve aralarındaki farkı hesaplayıp, 
ekrana yazdıran bir program yazınız. 


BÖLÜM 15 


KOMPLEKS ANALİZ 


15.1 GENEL BİLGİLER 


FORTRAN programlama dilini diğer dillerden ayıran en önemli özelliklerinden biri de, 
Fortran derleyicilerinde kompleks sayılarla yapılan tüm işlemlerin tanımlanmış olmasıdır. 
Kompleks sayılar 2—a*ib şeklinde belirlenen bir gerçek (a) ve bir de sanal (b) kısımdan 


oluşan bir sayı çiftidir; burada /— Y-1i temsil etmektedir. İki kompleks veya karmaşık sayı 
7 za, kib,ve 2) <a, #ib, ele alındığında, 


Toplama ve Çıkarma işlemi, 27, 42) —(a,*a,)*i(b, #b,) 


Çarpma işlemi, Ze -(a, sa, —bı-bo) sila, -b, #bı sa, ) 
> > > z da a, *b b .b -a—a b 
Bölme işlemi, 71-1 z - 2 ,j21 z ! 2 
ie a; b; a; kb; 
z'in eşleniği, Z—a—ib 


olarak tanımlanmaktadır. Ayrıca bir kompleks sayıyı kutupsal şekilde tanımlamak 
mümkündür. Yani 

zzre”” -r(cos04isin0) 
şeklinde de belirtilebilir. Burada 4 kompleks sayının x-ekseni ile saat yönünün tersi yönde 
yaptığı açıdır ve 0 —arg(2) olarak da yazılır ve 9 — arctan(b/a) ile hesaplanır; yalnız (4,b) 
çiftinin x-y kartezyen sistemde hangi bölgeye denk geldiğini bilmek önemlidir; diğer taraftan, 


rise büyüklük olup / İzl — Ya” *b” şeklinde verilmektedir. 


Fortran programlama dilinde bu işlemler otomatik olarak yapılmaktadır. Örneğin iki 
kompleks sayı arasında toplama, çıkarma, çarpma ve bölme işlemi yapan ve ekrana yazdıran 
program verilmektedir. Bu program 7,—1—3i ve z, -443i için aşağıda verilmiştir. 


PROGRAM sanal sayilar 
IMPLICIT NONE 
COMPLEX :: z1-(1.,-3.), z2-(4.,3.) ! Tip tanımlama 
, 21<*',21 
; '22-',22 
PRINT*, '714122-',z1122 
, '21-722',z1-7232 
, 1'Z1*72-',z1*z2 
PRINT*, 'Z1/22-',z1/2z2 
END PROGRAM Sanal sayilar 


Girdi programa (I. ,-3.), (4. ,3.) olarak temin edilmiştir. Çıktı 
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Z1- (1.0000000,-3.0000000) 
22- (4.0000000,3.0000000) 
21422 (5.0000000,0.000000) 
21-22 (-3.0000000,-6.0000000) 
Z1X22- (13.0000000,-9.0000000) 
Z1/22- (-0.2000000,-0.6000000) 


olarak elde edilir. Parantez içindeki ilk değer gerçek ikinci değerde sanal kısmı ifade 
etmektedir. Bu programı formatlı çıktı almak için aşağıdaki şekilde değiştirmek de 
mümkündür. Bu durumda 


PROGRAM Sanal sayilar 

IMPLICIT NONE 

COMPLEX :: 21-(1.,-3.), z22<(4.,3.) 

WRITE(*,10) z1,z22,z2z1122,z2z1-22,z21*2z2,z2z1/22 

10 FORMAT(2X,'71-',f8.3,'4',f8.3,' i',/, & 
2X2 “ELİ, eN EB 3, Ef, & 


2X,'21122-',f8.3,'1',f£8.3,' i',/, & 
3X;, V21—222'; 843; ey E8, 3,9 1“ş/ş © 
2X5 “ANAZ2 2,8, By A, E8. 3, AN,/ş & 
2X,'21/22-',f8.3,'4',f£8.3,' i') 


END PROGRAM Sanal sayilar 


Bu durumda çıktı aşağıdaki gibi elde edilir. 


Z21-— 1.000* -3.000 i 
22— 4.0001 3.000 i 
21t122- 5.0001 0.000 i 
21-22- -3.000t -6.000 i 
21422 13.0001 -9,.000 i 
21/22- —-0.200t -—0.600 i 


Tablo 15.1 Karmaşık sayılarla kullanılan arşiv fonksiyonları ve işlevleri (Aşağıda 
c-a*tibolarak alınmıştır). 


Jenerik Tip Belirli (o Değeri Bilgi 
Fonksiyon Fonksiyon 
ABS (c) CABS (c) EE yp? Karmaşık sayının büyüklüğünü hesaplar; 


sonuç gerçek sayıdır 
ATIMAG (Cc) b 


CMPLX(a,b, (a,b))> atib aveb birleştirerek asib karmaşık sayı- 

kind) sını oluşturur. Kind opsiyonel bir tam 
sayıdır. 

CONJG(c) a-ib Karmaşık sayının eşleniğini verir 

DBLE (c) c karmaşık sayısının gerçek kısmını çift 
hassasiyetli bir sayıya dönüştürür. 

INT (c) c karmaşık sayısının gerçek kısmını bir 
tamsayıya dönüştürür. 

REAL (c,kind) c karmaşık sayısının gerçek kısmını bir 


gerçek sayıya dönüştürür. Kind opsiyo- 
nel bir tamsayıdır. 
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Hatırlayacağınız gibi kompleks sabitler ve değişkenler COMPLEX olarak tanımlanır. Bir 
kompleks sabit, örneğin 14-3i, 


(ydi) (0.1le1.3.0) (1..3.E60) (0.1£41,0.3E1) 


değerlerinden herhangi birisi ile ifade edilebilir. Fakat (1,3) olarak kullanılamaz. Diğer 
taraftan, gerçek veya sanal kısım değişken ise, 2—x43i gibi, bu durumda bu kompleks 
ifadeyi (X,3.) olarak tanımlayamayız. Buna rağmen Fortran arşiv fonksiyonlarından 
CMPLX fonksiyonu bu iş için tasarlanmıştır. Bu fonksiyonun kullanımı ile gerçek veya sanal 
kısım veya her ikisi de aynı anda değişken olarak tanımlanabilmektedir. Örneğin, 


Doğru Yanlış 
PROGRAM ornek PROGRAM ornek 
IMPLICIT NONE IMPLICIT NONE 
COMPLEX :: a, b, c COMPLEX :: a, b, c 
REAL :: Xx, y REAL :: Xx, y 
READ*, Xx, y READ*, Xx, y 
azCMPLX(x,2.) az(Xx,2.) 
b>CMPLX(-1.,y) b-(-1.,y) 

c-a*b c-a*b 
PRINT*, c PRINT*, c 
END PROGRAM Ornek END PROGRAM Ornek 


CMPLX fonksiyonunun başka kullanım durumları aşağıda verilmektedir. 


Z-CMPLX (X41.0,1.0-X) z-(x41)4(1—x)i 
Z-CMPLX (X*Y, 3.04Y) z—(44y)4(3*x)i 
Z-CMPLX (X*Y, T) 7—ay#ti 


Aşağıda sıralanan atama deyimleri geçerli atama deyimleridir. 


COMPLEX :: Z,X,Y 

2-(.5,0.45et01) 

2224XX42 

23. ! sanal kısmının “sıfır” olduğu anlamına gelir 
2-0.1254X 


2-2.XX13.*Y—4. 
Z-CMPLX(X,Y—1.5) 


Kompleks arşiv fonksiyonları REAL, ATMAG, CABS, CSORT, CSIN, CCOS gibi fonksiyonları 
içermektedir. 


Tablo 15.1'de verilen REAL(c), c kompleks sayısının gerçek kısmını, ATMAG(c) c 
kompleks sayısının sanal kısmım, CABS (c) ise mutlak değerini ve CSORT(c) 'de c'nin 
karekökünü verir. 
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15.2 KOMPLEKS SAYILARLA UYGULAMALAR 


Mühendislik problemlerinin çözümünde özellikle fizik, elektrik, bilgisayar, makina ve kontrol 
mühendisliğinde kompleks sayılar ve uygulamaları önemli yer tutar. Uygulamalar bir 
polinomun kompleks köklerinin bulunmasından, kompleks matrisler ile işlemler (toplama, 
çarpma, matrisin tersi v.s), seri toplam, diferansiyel denklemin çözümü v.b şekillerinde 
olabilmektedir. Bu nedenle bu problemlerin Fortran90'da programlanması büyük bir kolaylık 
sağlamaktadır. 


ÖRNEK 1: İkinci dereceden denklemin, COMPLEX tanımlaması ve uygulaması kullanarak, 
gerçek ve/veya sanal köklerini veren bir program yazınız. 


Diskriminantı COMPLEX olarak tanımladıktan sonra (A — (b —4ac)*0i), sıfıra eşit, pozitif 


veya negatif olup olmamasını kontrol etmeye gerek kalmaz çünkü diskriminant negatif olsa 
da karmaşık sayılarla işlemlerde negatif sayıların kökleri vardır ve sanaldır. 


PROGRAM Ornekl 

IMPLICIT NONE 

REAL :: a, b, c, delta, a2 
COMPLEX :: x1,x2 

WRITE (*,50) 

! Katsayıları oku 

READ (*,*) a, b, c 

delta - b*b-4.*a*c 

a2 - 2.*a 

! o Kökleri hesapla 


I NAKO şeklinde temsil ediyoruz 

xl — (-b1*SORT( CMPLX(delta,0.) )) /a2 

x2 - (-b-SORT( CMPLX(delta,0.) )) /a2 

WRITE (*,25) a, b, c ! Katsayıları yaz 

! o Kökleri gerçek ve sanal kısımlarıyla yaz 

WRITE (4,75) ' x1 — ', REAL(x1), AIMAG(xI) 

WRITE (*, 75) ' x2 — ', REAL(x2), AIMAG(x2) 

25 FORMAT(2Xx,F5.2,' X*#2 $ ',F5.2,'! X $ ',F5.2,' —0'/,& 
'Denkleminin Kökleri") 

50 FORMAT (' A*X**21B*X1C-0 denkleminin', & 
' katsayılarını giriniz') 

75 FORMAT (A,F8.4,' * ( ',F8.4,' ) i ') 

END PROGRAM Ornek1 


Çeşitli katsayı değerleri için çözümleri irdeleyecek olursak, 
Programın a1, b—1 ve cl için çıktısı 
1.00 X**2 $* 1.00 X $ 1.00 -0 
Denkleminin Kökleri 


xl < -0.5000 * 0.8660 ) i 
x2 - -0.5000 $* ( -0.8660 ) i 
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Programın a1, b——2 ve cl için çıktısı 


1.00 X**2 $ -2.00 X $# 1.00 -0 
Denkleminin Kökleri 
xI — 1.0000 $* ( 0.0000 ) 


i 
x2 - 1.0000 t$ ( 0.0000 ) i 


Programın al, b-—4 ve c-3 için çıktısı 


1.00 X**2 $ —4.00 X * 3.00 -0 
Denkleminin Kökleri 


xI — 3.0000 * ( 0.0000 ) i 
x2 — 1.0000 $* ( 0.0000 ) i 
elde edilir. 


ÖRNEK 2: Aşağıdaki şekilde verilen bir kompleks serinin toplamını veren program yazınız. 
Bu serinin toplamında kıstas olarak zl < ge ifadesini kullanınız. 


Gi) (ki) (ei), gisi) 
ED 2 


! 
nz) n. 


Serinin ilk iki teriminin toplamının 2 * i olduğu görülür. Bu durumda programda gerçek 
kısımların toplamını hesaplarken toplamz1 . 0 alabiliriz (çünkü serinin ilk terimidir). 


PROGRAM Ornek2 


IMPLICIT NONE 

INTEGER :: nzO 

COMPLEX :: toplam, terim 
REAL :: f-1.0, eps-1.0E-5 


! OFZ faktoriyel olarak kullanılıyor 
toplam-(1.0,0.0) 


DO 
n-n t1 ! Sayaç kullanılıyor 
fT-f *n In faktoriyel hesabı 
terim — (1.,1.)**n / f 
toplam - toplam t terim 
IF(CABS(terim)<eps) EXIT |! |z,J<£? 

END DO 


PRINT*, 'Seri Toplam-',toplam 
PRINT*, 'Serinin ilk ',n,' terimi toplandı ' 
END PROGRAM Ornek2 


Programının çıktısı 


Seri Toplam- (1.4686949,2.287354) 
Serinin ilk 10 terimi toplandı 


olarak bulunur. 
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ÖRNEK 3: İki kompleks matrisin toplamım veren bir program yazınız ve örnek olarak 
aşağıdaki iki kompleks matrisi için deneyiniz. 


142i —I-i  3i —1-3i 145i 443i 
AZ|—44i 342i —145i)| B—|-243i 8—6i o 4i 
3-46 Sİ leg 3ti -3-R 


Bu örnekte kompleks matrislerin çarpımı normal iki matrisin çarpımı şeklinde düşünülebilir. 
Programlamada karşılaşılacak tek farklılık matrislerin COMPLEX olarak tanımlanması 
olacaktır. Dolayısıyla hazırlanan programda CMCARP isimli altprogram Bölüm 13”teki 
MCARP ile aynı şekilde hazırlanmış; fakat Z1, 72 ve 23 COMPLEX olarak tanımlanmışlardır. 


PROGRAM Ornek3 

IMPLICIT NONE 

COMPLEX, DIMENSION(3,3) :: a, b, c, d 
INTEGER :: i,j,n>3 

OPEN (UNIT-5,FILE-'girdi.dat', STATUS-'old') 
! A kompleks Matrisini Kütükten Oku 

READ(5,*) ((a(i,j),ijzl,n),izl,n) 

! B kompleks Matrisini Kütükten Oku 

READ(5,*) ((b(i,j),ijzl,n),izl,n) 


d-atb ! Matrislerin toplamı D-A*B 
WRITE(6,20) 'A' 
CALL Sanal Matris Yazdir(n,a, 6) 


WRITE (6,20) 'B' 
CALL Sanal Matris Yazdir(n,b, 6) 


CALL cmcarp(n,a,b,c) ! Matris çarpımı yapıldı 
WRITE(6,20) 'c' 
CALL Sanal Matris Yazdir(n,c, 6) 


WRITE (6,20) 'D' 
CALL Sanal Matris Yazdir(n,d, 6) 

20 FORMAT(/2x,A,' matrisi") 

END PROGRAM Ornek3 


SUBROUTINE Sanal Matris Yazdir (n,M,UnitNo) 
!I nxn boyutlu sanal matrisi yazdıran 

!I alt programdı 

SR : matrisin boyutu 

| 

! 


»* A : nxn'lik kompleks matris 
»X* UnitNo : Yazdırma birimi numarası 
IMPLICIT NONE 
INTEGER, INTENT(IN) :: n, UnitNo 
COMPLEX, DIMENSTION(n,n), INTENT(IN) :: M 
INTEGER :: i, j 
DO izl,n 
WRITE (UnitNo, 10) (M(i,j),j-1,n) 
END DO 


10 FORMAT(3(2x,'(',F6.1,',',F6.1,')')) 
END SUBROUTINE Sanal Matris Yazdir 
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SUBROUTINE cmcarp(n,a,b,c) 
IMPLICIT NONE 
INTEGER, INTENT(IN)::'n 
COMPLEX, DIMENSION(n,n), INTENT(IN) :: a 
COMPLEX, DIMENSION(n,n), INTENT(IN) :: b 
COMPLEX, DIMENSION(n,n), INTENT(OUT) :: c 
INTEGER :: i,ij,k 
ı 

C-AxB İŞLEMİNİ YAPAN ALT PROGRAM 


x»X* B : nxn BOYUTLU SANAL MATRİSTİR 
x»X C : nxn BOYUTLU SANAL MATRİSTİR (-A*B) 
DO izl,n 
DO j-1,n 
c(i,j)z0.0 
DO kzl,n 
G(iş, 7) -6(1; J) ta(i,k)*b(E£;7) 
END DO 
END DO 
END DO 
END SUBROUTINE cmcarp 


! 
! 
LI #* A : nxn BOYUTLU SANAL MATRİSTİR 
! 
! 


Matrisler GİRDİ kütüğünden aşağıdaki şekilde temin edilirler 


(1.52.) Xl. ,—İ.) (Oy 3) o depl.) (35p21) 
( 1 rm.) (3 , <4 ) (0.,1.) (—1 ,0.) 

—145-934) (Le) (dad) (2.634) (85,604) 
epA) Xl. O.) (Beş l.p (3.014) 


Çıktı ise, Sanal Matris Yazdir alt programında 10 ile verilen formatta, aşağıda gibi 
verilmiştir. 


A matrisi 

( 1.0; 2.0) ( —1.0, -1.0) ( 0.0, 3.0) 
( —4.0, 1.0) ( 0 240) ç 140; 5.0) 
( 3.0, -4.0 ( 0.0, 1.0) ç -140; 0.0) 
B matrisi 

€ —-140; -340) ( HEM O 5.0) ( 4.0, 3.0) 
( -2.0, 3.0) ( 8.0, —6.0) ( 0.0, 4.0) 
( —L-0ş 6.0) ( Sa 0 1.0) ( -3.0, —7.0) 


matrisi 

—8.0, -9.0) ( -26.0, 14.0) ( 23.0, -2.0) 
-34.0, 5.0) ( 19.0, -7.0) ( 11.0, -4.0) 
—17.0, —-13.0) ( 26.0, 18.0) ( 23.0, 0.0) 


—— — O 


D matrisi 

( 0.0, -1.0) ( 0.0, 4.0) ( 4.0, 6.0) 
( —6.0, 4.0) ( 11.0, -4.0) ( —-1.0, 9.0) 
( 2.0, 2.0) ( 3.0, 20) ( —4.0, —1.0) 
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ÖRNEK 4: Bir nxn bilinmeyenli kompleks lineer denklem sistemini çözmek için bir 
altprogram yazınız ve aşağıdaki şekilde verilen sistemin çözümünü bulunuz. 


142i —I—i 3i —1—3i 
A-|—44i 342 —145i R-| 14Si 
3—4i i —1I 443i 
ve denklem sisteminin 
AX—R 


şeklinde verildiği kabul edilmektedir. 


Burada uygulanan çözüm tekniği Bölüm13”de bahsedilen Gauss-Jordan yoketme tekniğidir; 
sadece çarpma, toplama ve bölme işlemleri kompleks sayılar ile yapılmaktadır. Bu programı 
daha iyi kavramak için Gerçek lineer denklem sistemlerine uygulanan Gauss-Jordan programı 
ile kıyaslayınız. 


PROGRAM Ornek4 

IMPLICIT NONE 

COMPLEX, DIMENSION(3) :: r—(/(-1.,-3.),(1.,5.), & 
(4.,3.)/), X 

COMPLEX, DIMENSION(3,3):: a-RESHAPE( (/ (1.,2.),€ 


(Aş), (Bep le)e Caluy li.) ; (224) y& 
(0.,1.),(0.,3.),(-1.,5.), (-1.,0.) /), (/3,3/)) 
INTEGER :: i,ij, nz3 
OPEN(3,FILEZ'Cikti.dat', STATUSZ'unknown') 
! Matrisi yazdır 
DO izl,n 
WRITE (3,10) (a(i,j),j2#1,n),i,r(i) 
END DO 


! Gauss Yoektme Metodunu kompleks sayılara uygula 

CALL CGauss Yoketme Metodu(n,a,r,Xx) 

WRITE(3,15) 

DO izl,n 
WRITE (3,20) i,x(i) ! Çözümü yazdır 

END DO 

10 FORMAT(1Xx,'(',3(' (',F4.1,',',F4.1,')'),')J | x(',& 
il,') Is I (,F4.1,','F4.1,') 1') 

15 FORMAT(/1x, 'Denklem Sisteminin Çözümü'/) 

20 FORMATXÇIX,' x(',12,') — *,E9.5,'#*,E9.5,” a") 

END PROGRAM Ornek4 


SUBROUTINE CGauss Yoketme Metodu(n,a,r,x) 
IMPLICIT NONE 

INTEGER, INTENT(IN) ::'n 

COMPLEX, DIMENSION(n), INTENT(INOUT) :: r, X 
COMPLEX, DIMENSION(n,n), INTENT(INOUT):: a 
COMPLEX :: toplam, p 

INTEGER :: i, j, k 

ı 


! Gauss Yoketme Metodu ile sanal katsayılı Lineer 
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Denklem Sisteminin Çözümünü verir. 


ı 

! (n xn) ŞEKLİNDEKİ LİNEER DENKLEM SİSTEMİNİN 

! ** a(n,n) : DENKLEM SİSTEMİNİ BELİRLEYEN MATRİS 
! ** r(n) : SAĞ TARAF VEKTÖRÜ 

! ** x(n) : BİLİNMEYENLER VEKTÖRÜDÜR. 


! UYARI! Alt programa girilen matris ve vektörlerin 
! başlangıç değerleri bozulmaktadır... 
DO kzl,n 
p-1.0/a(k,k) 
r(k)2r(k) *p 
DO izkti,n 
alk,i)-a(k,i)*p 


END DO 

DO izk*ti,n 
DO j-k*11,n 

a(i,j)-ali, j))-a(i,k) *a(k,j) 

END DO 
r(i)sr(i)-a(i,k)*r(k) 

END DO 

END DO 


x(n)zr(n) 
DO k>n-1,1,-1 
toplam-0.0 
DO j-kt1,n 
toplam-toplamta(k,j) *x(j) 
END DO 
x(k)z2r (k)-toplam 
END DO 
END SUBROUTINE CGauss, Yoketme Metodu 


iç 1405. 2.0) (150, 1.0) (0.0 3.0) 1 x(L) İİ | 0; 30). 1 
LI (-4.0, 1.0) ( 3.0, 2.0) (-1.0, 5.0)1 I x(2) Iz İ( ( 1.0, 5.0) | 
L (3.0,-4.0) ( 0.0, 1.0) (-1.0, 0.0)1 | x(3) Iz 1( ( 4.0, 3.0) | 


Denklem Sisteminin Çözümü 


x( 1) s* 0.55684* 0.95495 i 

x( 2) - o 2.14574t 1.84847 i 

£( 3) es #0358144 -0.21678 £ 
ALIŞTIRMALAR 


15.1 (o Herhangi bir kompleks sayının n.ci dereceden kuvvetini De Moivre formülü uyarınca 
hesaplayan bir program yazınız. De Moivre formülü 


| r(cos 0 isin 0)| —r"(cosn0*isinnd) 
olarak verilmektedir. 


15.2 Herhangi nxnboyutlu bir A kompleks matrisinin tersini Gauss-Jordan metodu ile 
hesaplayan bir program yazınız. 
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15.10 


15.11 
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Herhangi bir matrisin tersini ve kendisim sağ taraftan veya sol taraftan çarparak birim 
matrisin verip vermediğini kontrol eden bir program yazınız. 


Bir z-a*ib kompleks sayısının doğal logaritmasını hesaplayan bir altprogram 
yazınız. NOT: Burada a,b # 0 için 

In(a *ib)—in a” *b 4i0 
Bir z-a-ib kompleks sayısının üstel değerini, yani o—e' , hesaplayan bir alt 


program yazınız. NOT: 
e — exp(a * ib) —e“ (cosb * isinb) 


Bir z-a-4ib kompleks sayısının trigonometrik değerlerini hesaplayan birer 
altprogram yazınız. NOT: 


cos(a -ib) -cos(a)cosh(b)—isin (a)sinh (b) 
sin(4 *ib) —sin(a)cosh(b) 4 icos(a)sinh (b) 
tan(a * ib) — sin (a *ib)/cos(a ib) 
sec(4 *ib)-I/cos(a ib) 


formülleriyle yapılan işlemin sonuçlarını kontrol ediniz. 


ax” -bx-4cz ile verilen ikinci dereceden denklemin köklerini bulmak için en genel 
bir program yazınız. NOT: COMPLEX değişkenlerden yararlanınız. 


Katsayıları, a, b ve c, birer kompleks sayı olan ikinci dereceden denklemin 
kompleks köklerini hesaplayan bir altprogram yazınız. Not: 


0 . (0 
Ya iy rl cos) — |#isin| 
” | 2) pi 
Burada r—.Jx” 4 y? ve O—arctan( y/x) olarak alınacaktır. 


Aşağıdaki integralleri yamuklar ve Simpson kuralı ile hesaplayan bir program yazınız. 


—Iki 3—2i R 143i Zi 
(a) İ z sin zdz (b) | ed (c) | COS 2d (d) İ esinzdz 
1—2i 0 — ii 


Aşağıdaki seri ifadeleri hesaplayan bir program yazınız. Programı durdurma kriteri 
olarak İz “|<€ kullanınız. Unutmayınız ki burada kullanılan mutlak değer ifadesi 


ei aym adi 


(1420) (8-21) 2i) (3n 4 2i— GE 2 (641) 


Aşağıdaki seri ifadeleri dışarıdan temin edilen herhangi bir z kompleks sayısı için 
hesaplayan bir program yazınız. Programı durdurma kriteri olarak aynı mantıktan 
hareket ediniz. 
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oyn G İ > a 9 20) 2 o vE 


nz) nz) nz 03 -1)! n-0 7 


15.12 Bir nxn A kompleks matrisi için, sinA değerini Taylor serisi açılımı yardımıyla 
hesaplayan bir program yazınız. Taylor serisi 


1 


sin A — A-ÇATZ 


5! 
olarak veriliyor. Programda yakınsama kriteri olarak n.ci terim için 


1 
(any x|A| 


kriterini kullanınız; yani A kompleks matrisinin mutlak değerce en büyük elemanının 
kuvveti alınacaktır. 


AP 


ll 


